program ct; uses crt; var A:array[1..1000] of integer; i,j,n,k:integer; begin clrscr; write('Nhap so phan tu: '); 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 k:=A[i]; A[i]:=A[j]; A[j]:=k; end; write('Mang sau khi xep theo chieu giam dan la: '); for i:=1 to n do write(A[i]:3); readln; end.
