Дан двумерный массив размерностью 5х6, заполненный целыми числами. Сформировать одномерный массив (программа Паскаль)
Вопрос посетителя
Дан двумерный массив размерностью 5х6, заполненный целыми числами. Сформировать одномерный массив каждый элемент которого равен произведению четных положительных элементов соответствующего столбца
Ответ эксперта
USES Crt;
VAR
M:ARRAY[0..5,0..6] OF INTEGER; F:ARRAY[0..6] OF INTEGER;
I,J:BYTE; P:LongInt;
BEGIN
ClrScr; Randomize;
{ Заполнение двумерного массива случайным образом и вывод в виде прямоугольной матрицы }
WriteLn(‘ Значения элементов двумерного массива’);
FOR I:=1 TO 5 DO Begin
FOR J:=1 TO 6 DO Begin
M[I,J]:=Random(20)-5; Write(M[I,J]:3);
End; WriteLn;
End; WriteLn;
{ Формирование одномерного массива}
WriteLn(‘ Значения элементов одномерного массива’);
FOR J:=1 TO 6 DO Begin
P:=1;
FOR I:=1 TO 5 DO
IF (M[I,J]>0) AND (M[I,J] mod 2 =0) THEN P:=P*M[I,J];
IF P=1 THEN F[J]:=0 ELSE F[J]:=P;
Write(F[J]:4);
End;
END.