Дан двумерный массив размерностью NхM, заполненный случайным образом. Определить, есть ли в данном массиве строка, (программа Паскаль)

Question

Дан двумерный массив размерностью NхM, заполненный случайным образом.  Определить, есть ли в данном массиве строка, в которой ровно два  отрицательных элемента

Answer 1

USES Crt;
 CONST   N=6;   M=8;
 VAR
   A:ARRAY[0..N,0..M] OF INTEGER;
   I,J,K,FL:BYTE;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO N DO Begin
     FOR J:=1 TO M DO Begin
       A[I,J]:=Random(40)-15;   Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;   FL:=0;
   { Определение строк, в которых ровно два отрицательных элемента }
   FOR I:=1 TO N DO Begin
     K:=0;
     FOR J:=1 TO M DO
       IF A[I,J]<0 THEN Inc(K);
     IF K=2 THEN Begin WriteLn('В ',I,' строке ровно два отрицательных элемента');FL:=1;  End;
   End;
   IF FL=0 THEN Writeln(' Нет строк, в которых ровно два отрицательных элемента');
 END.