program asd;
uses crt;
const n=4;
m=2;
var q,x:array[1..n,1..n] of integer;
a1,a2,a3,a4,k,s,i,j,v,f:integer;
u:real;
BEGIN clrscr;
randomize;
for j:=1 to n do BEGIN for i:=1 to n do BEGIN x[i,j]:=random(10)-5;
write(' ',x[i,j]);
end;
writeln;
end;
writeln;
for j:=1 to n do BEGIN a1:=0;
a2:=0;
for i:=1 to n do if x[i,j]<0 then BEGIN a1:=j;
a2:=i;
end;
if a1<>0 then writeln('i=',a1,' j=',a2) ;
end;
writeln;
for i:=1 to n do BEGIN a1:=0;
a2:=0;
for j:=1 to n do if x[i,j]<0 then BEGIN a1:=j;
a2:=i;
end;
if a1<>0 then writeln('i==',a2,' j==',a1) ;
end;
end.