*Với kiểu mảng: Uses CRT; Var a:array[1..50] of integer; i,n,j,tg,kq:integer; Begin Clrscr; Repeat Write(' Nhap so ptu N = '); Readln(n); Until n<=6; For i:= 1 to n do Begin Write(' Nhap a[',i,']= '); Readln(a[i]); End; Writeln; 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(' Cac so vua nhap theo thu tu tang dan la: '); For i:= 1 to n do Write(a[i]:3); Readln End.
