uses crt; var a: array[1..100] of integer; i,j,n,t,x,p,q:integer; 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-1 do for j:=1 to n-i do if a[j]>a[j+1] then begin t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t; end; write ('day sau khi sap xep tang dan la: '); for i:=1 to n do write(a[i],' '); readln; End.
program bai_giai; uses crt; var A:array[1..100] of integer; n,i,j,tg:integer; begin clrscr; write('Nhap n (n<=100): '); readln(n); for i:=1 to n do begin write('Nhap so thu ',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; write('Day tang dan: '); for i:=1 to n do write(A[i],' '); readln; end.
