program mn;<br/>
uses crt;<br/>
var a:array[1..100,1..100]of integer;<br/>
    n,nom,i,j:integer;<br/>
BEGIN<br/>
ClrScr;<br/>
Write('N:');readln(n);<br/>
randomize;<br/>
for i:=1 to n do<br/>
begin<br/>
for j:=1 to n do<br/>
begin<br/>
a[i,j]:=random(40)-20;<br/>
write(a[i,j]:3);<br/>
end;<br/>
writeln;<br/>
end;<br/>
writeln;<br/>
for i:=1 to n do<br/>
begin<br/>
nom:=0;<br/>
for j:=n downto 1 do<br/>
if a[i,j]<0<br/>
then nom:=j;<br/>
writeln(nom);<br/>
end;<br/>
readln;<br/>
END.<br/>
</p>