Question

Дана вещественная прямоугольная матрица А, размером nxm найти номер первой из строк, не содержащих не одного положительного элемента.

Answer 1

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.

Answer 2

если у вас паскаль abc, а turbo или free pascal, то допишите сверху строчку program matritsa; (иначе turbo/free pascal не прочитают программу). если же у вас вообще не паскаль, то решение бесполезно.