program hh;
uses crt;
const n=10;
var a:array[1..n] of integer;
i,j,p,k:integer;
Begin
clrscr;
randomize;
for i:=1 to n do begin
a[i]:=random(20)-5;
write(a[i]:7); end;
writeln;
for i:=1 to n do
if a[i]<0 then begin
p:=a[i];j:=i;
end;
a[j]:=a[1]; a[1]:=p;
for i:=1 to n do begin
write(a[i]:7); end;
writeln;
end.