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á!