uses crt;

var a: array[1..100] of integer;

i,n,j,t: integer;

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-1 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;

writeln ('day sau khi sap xep: ');

for i:=1 to n do write (a[i]:4);

readln;

end.

Sắp xếp các phần tử trong mảng tăng dần <không giảm>

var n,i,j,tam:longint;

      a:array[1..100] of longint;

begin

read(n);

for i:=1 to n do read(a[i]);

for i:=1 to n-1 do

for j:=i+1 to n do

if a[j]<a[i] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('day tang dan: ');

for i:=1 to n do write(a[i],'      ');

readln

end.