uses crt;

var a: array[1..104] of byte;

i,n,j,t: byte;

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

t:=a[i];

a[i]:=a[j];

a[j]:=t;

end;

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

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

readln;

end.

uses crt;

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

f1, f2 : text; N, i, j : integer;

begin

clrscr;

assign(f1, 'Input'); reset(f1);

assign(f2, 'Output'); rewrite(f2);

readln(f1, N);

for i := 1 to n do read(f1, A[i]);

for j := n downto 2 do

for i := 1 to j - 1 do

if A[i] > A[i + 1] then begin

A[i] := A[i] + A[i + 1];

A[i + 1] := A[i] - A[i + 1];

A[i] := A[i] - A[i + 1]; end;

for i := 1 to N do write(f2, A[i],'  ');

close(f1); close(f2);

readln

end.