Решение
var
a: array [1..30, 1..30] of integer;
i, j, n, k: integer;
begin
readln(n);
for i:=1 to n do
for j:=1 to n do read(a[i,j]);
for i:=1 to n do
begin
k:=0;
for j:=1 to n do
if a[i, j]<0 then inc(k);<br>write(k, ' ');
end;
end.
Если есть вопросы, пиши.