program xxx;
uses crt;
const n=6;
var a: array[1..n] of integer;
i,k,n1,n2:integer;
BEGIN
clrscr;
randomize;
for i:=1 to n do
begin
a[i]:=random(50)-10;
write(a[i]:4);
end;
writeln;
for i:=n downto 1 do
if a[i]>0 then n1:=i;
for i:=1 to n do
if a[i]<0 then n2:=i;
for i:=1 to n do
begin
k:=a[n1]; a[n1]:=a[n2]; a[n2]:=k;
write(a[i]:4);
end;
writeln;
readln; END.