Program NhatNgu; Uses crt; Var A: array[1..10000] of longint; n,i,j,tg: longint; Begin Clrscr; Write('Nhap n: '); Readln(n); For i:=1 to n do Begin Write('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 tg:=A[i]; A[i]:=A[j]; A[j]:=tg; End; For i:=1 to n do Write(A[i],' '); Readln End.
uses crt; var i,n,j,t:longint; a:array[1..1000000]of longint; begin clrscr; write('n=');readln(n); for i:=1 to n do begin write('a[',i,']=');readln(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 writeln(a[i]); readln; end.
