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

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<br>                 write(i);
                 break;
                 end;
end.

Comments

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