program mang; uses crt; var N: array[1..30000] of integer; n,k,i,j: longint; begin clrscr; write('Nhap n: '); Readln(n); for i:=1 to n do write('N[',i,']: '); readln(N[i]); for i:=1 to n-1 do for j:=i+1 to n do if N[i]>N[j] then begin k:=N[i];
Program HuynhDucNhatDeThuongQuaDiA; Uses crt; Var A: array[1..100000] of longint; n,tg,i,j: 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.
