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