Var A:array[1..1000, 1..1000] of real; // Если есть ограничение на максимальный //размер матрицы, запишите его тут (скажем, если максимальный размер матрицы //100x100, то строчка должна выглядеть так: var A:array[1..100, 1..100] of real; i, j:integer; n,m:integer; begin read(n,m); for i:=1 to n do for j:=1 to m do read(A[i, j]); for i:=1 to n do for j:=1 to m do if A[i,j]<0 then begin write(i); break; end; end.
//размер матрицы, запишите его тут (скажем, если максимальный размер матрицы
//100x100, то строчка должна выглядеть так: var A:array[1..100, 1..100] of real;
i, j:integer; n,m:integer;
begin
read(n,m);
for i:=1 to n do
for j:=1 to m do read(A[i, j]);
for i:=1 to n do
for j:=1 to m do
if A[i,j]<0 then begin
write(i);
break;
end;
end.