Дана квадратная матрица порядка n, заполненная целыми числами. Получить одномерный массив, элементами которого (программа Паскаль)

Question

Дана квадратная матрица порядка n, заполненная целыми числами.  Получить одномерный массив, элементами которого являются первый  положительный элемент соответствующей строки матрицы

Answer 1

USES Crt;
 LABEL   M1;
 CONST   N=5;
 VAR
   H:ARRAY[0..N,0..N] OF INTEGER;   B:ARRAY[0..N] OF INTEGER;
   I,J:BYTE;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде     прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   WriteLn;
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO N DO Begin
       H[I,J]:=Random(25)-10;  Write(H[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   WriteLn(' Значения первых положительных элементов соответствующих строк');
   WriteLn;
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO N DO
       IF H[I,J]>0 THEN Begin  B[I]:=H[I,J];   GOTO M1;   End;
     M1: Write(B[I]:3);
   End;
 END.