Program FNG;
Uses crt;
Var A,B,C: array[1..1000] of longint;
n,i,j,tg,da,dd: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
da:=0; dd:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i]>0 then
Begin
inc(dd);
B[dd]:=A[i];
End;
If A[i]<0 then
Begin
inc(da);
C[da]:=A[i];
End;
End;
For i:=1 to dd-1 do
For j:=i+1 to dd do
If B[i]>B[j] then
Begin
tg:=B[i];
B[i]:=A[j];
B[j]:=tg;
End;
For i:=1 to dd do Write(B[i],' ');
For i:=1 to da-1 do
For j:=i+1 to da do
If C[i]>C[j] then
Begin
tg:=C[i];
C[i]:=C[j];
C[j]:=tg;
End;
For i:=1 to da do Write(C[i],' ');
Readln
End.
