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