uses crt;

var i,n,j,k,max,h,m : integer;

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

begin clrscr;

write('Nhap so phan tu :'); readln(n);

for i:=1 to n do begin

write('Nhap a[',i,']='); readln(a[i]);

end;

{Sap xep mang theo thu tu tang dan }

For i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin

k:=a[i]; a[i]:=a[j]; a[j]:=k; end;

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

Readln

end.

uses crt;
var a:array[1..10000] of longint;
        n,i,j,tg:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); 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:=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.