Viết chương trình nhập vào một dãy số có N phân tử được nhập từ bàn phím. Hãy sắp xếp dãy số giảm dần. Xuất ra dãy số trước và sau khi sắp xếp?
Viết chương trình nhập vào một dãy số có N phân tử được nhập từ bàn phím. Hãy sắp xếp dãy số giảm dần. Xuất ra dãy số trước và sau khi sắp xếp?
Var n, i, j: word;
a:array[1..500] of integer;
t: integer;
begin
write(‘n = ‘); readln(n);
for i:=1 to n do
begin
write(‘a[‘, i, ‘] = ‘); readln(a[i]);
end;
For i:=1 to n-1 do write(a[i], ‘ ‘);
Writeln(a[n]);
For i:=1 to n-1 do
For j:=i+1 to n do if a[j]>a[i] then
Begin
t:=a[j]; a[j]:=a[i]; a[i]:=t;
End;
For i:=1 to n do write(a[i], ‘ ‘);
readln
end.
Uses Crt;
Var a:array[1..1000] of integer;
i,n,j,gd:integer;
Begin
Clrscr;
Write(‘Nhap so ptu n= ‘); Readln(n);
For i:=1 to n do
Begin
Write(‘Nhap a[‘,i,’]= ‘); Readln(a[i]);
End;
Write(‘*Phan biet: ‘);
Writeln(‘+) Day so truoc khi xep theo thu tu giam dan la : ‘);
For i:=1 to n do
Begin
Write(a[i]:3);
End;
For i:=1 to n-1 do
For j:=i+1 to n do
If a[i]<a[j] then
Begin
gd:=a[i];
a[i]:=a[j];
a[j]:=gd;
End;
Writeln;
Writeln(‘+) Day so sau khi sap xep theo thu tu giam dan la: ‘);
For i:= 1 to n do
Begin
Write(a[i]:3);
End;
Readln
End.
* Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhé! Cảm ơn nhiều <33
* Có gì thì comment bên dưới nhá!