Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента - Turbo Pascal

Формулировка задачи:

1)Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента.(с использованием Procedure или Function) знаю, что легко, но не работает программа через Procedure

Код к задаче: «Найти номер первой из строк прямоугольной матрицы, не содержащих ни одного отрицательного элемента - Turbo Pascal»

textual
Const
 ColCount = 3;
 
Type
 TRowArray = array[1..ColCount] of Integer;
 
function TestRow(Row: TRowArray): Boolean;
Var i: Integer;
begin
 TestRow := True;
 for i := 1 to ColCount do if Row[i] < 0 then Exit;
 TestRow := False;
end;
 
Var
 Arr: array[1..ColCount] of TRowArray;
 i,j: Integer;
begin
 Randomize;
 for i := 1 to ColCount
 do begin
    for j := 1 to ColCount
    do begin
       Arr[i,j] := -1+Random(11);
       Write(Arr[i,j]:3);
       end;
    WriteLn;
    end;
 for i := 1 to ColCount
 do if TestRow(Arr[i])
    then begin
         WriteLn(i);
         Break;
         end;
 ReadLn;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

12   голосов, оценка 3.917 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы