program amkhonggiam;

uses crt;

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

       n,i,j,tg:integer;

begin

clrscr;

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

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

 begin

  write('Phan tu thu ',i,': ');

  readln(A[i]);

 end;

for i:=1 to n-1 do

 for j:=i+ to n do

  if A[i]>A[i] then

   begin

    tg:=A{i];

    A[i]:=A[j];

    A[j]:=tg;

   end;

for i:=1 to n do

 if A[i]<0 then write(A[i],' ');

readln

end.

program chuongtrinh;

var i,n,nb,max,tam,v: integer;

uses crt;

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

b: array[1..50] og integer;

begin

write('Nhap so luong phan tu: ');

readln(n);

for i:=1 to n do

begin

write('Nhap so thu',i,': ');

readln(a[i]);

end;

nb:=0;

for i:=1 to n do

begin

if a[i]<0 then

begin

nb:=nb+1;

b[nb]:=a[i];

end;

end;

write('Cac so am trong mang lan luot  khong giam la: ');

max:=b[i];

for i:=1 to nb do

begin

if b[i]> max then max:= b[i];

vt:=i;

end;

tam:=b[1];

b[1]:=b[vt];

b[vt]:=tam;

for i:= 1 to nb do

write(' ',b[i],' ');

readln

end.