uses crt; var a: array[1..100] of integer; i,n,j,t: integer; begin clrscr; write ('nhap n: '); readln (n); for i:=1 to n do begin write ('nhap a[',i,']: '); readln (a[i]); end; for i:=1 to n-1 do for j:=i+1 to n do if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; write ('day sau khi sap xep tang dan la: '); for i:=1 to n do write (a[i],' '); readln; end.
