Дан двумерный массив размерностью NхM, заполненный случайным образом. Определить, есть ли в данном массиве строка, (программа Паскаль)
Вопрос посетителя
Дан двумерный массив размерностью NхM, заполненный случайным образом. Определить, есть ли в данном массиве строка, в которой ровно два отрицательных элемента
Ответ эксперта
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.
