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 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('day sap xep tang dan la: '); for i:=1 to n do write(a[i],' '); readln end.
uses crt; var i,j,n,t:longint; a:array[1..100000]of longint; begin clrscr; write('Nhap n: ');readln(n); for i:=1 to n Do begin write('Nhap phan tu thu ',i,': ');readln(a[i]); end; for i:=1 to n 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: '); for i:=1 to n Do write(a[i],' '); readln end.
