uses crt; var n,i,j,t:longint; a:array[1..10000000]of longint; begin clrscr; write('Nhap so n: ');readln(n); for i:=1 to n do begin write('Nhap phan tu thu ',i,': ');read(a[i]); for j:=1 to i do if a[i]<a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end; end; for i:=1 to n do write(a[i],' '); readln end.
