Дана вещественная прямоугольная матрица А, размером nxm найти номер первой из…

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; beginread (n,m); for i: =1 to n dofor j: =1 to m do read (A[i, j]); for i: =1 to n dofor j: =1 to m doif A[i,j]<0 then begin write (i); break; end; end.