Question

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

Answer 1

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