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.
