Дан двумерный массив размерностью 4х6, заполненный целыми числами. Сформировать одномерный массив, каждый (программа Паскаль)

Question

Дан двумерный массив размерностью 4х6, заполненный целыми числами.  Сформировать одномерный массив, каждый элемент которого равен  количеству элементов соответствующей строки, больших данного числа N

Answer 1

USES Crt;
 VAR
   A:ARRAY[0..4,0..6] OF INTEGER;   G:ARRAY[0..6] OF INTEGER;
   I,J,K:BYTE;   N:INTEGER;
 BEGIN
   ClrScr;   Randomize;
   { Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
   WriteLn(' Значения элементов двумерного массива');
   FOR I:=1 TO 4 DO Begin
     FOR J:=1 TO 6 DO Begin
       A[I,J]:=Random(45);    Write(A[I,J]:3);
     End;     WriteLn;
   End;   WriteLn;
   Write(' Введите значение числа  ');   ReadLn(N);
   { Формирование одномерного массива}
   WriteLn(' Значения элементов одномерного массива');
   FOR I:=1 TO 4 DO Begin
     K:=0;
     FOR J:=1 TO 6 DO
       IF A[I,J] > N THEN K:=K+1;
     G[I]:=K;     Write(G[I]:2);
   End;
 END.