Question

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

Answer 1

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.