Заполнить двумерный массив с помощью датчика случ. чисел. Сформировать одномерный массив, закинуть произведение четных элементов по каждому столбику. Найти сумму элементов двумерного, для нечетных номеров столбика.

const n=5; var i, j, s, p: integer; a: array [1 ... n, 1 ... n] of integer; b, c: array [1 ... n] of integer; begin for i:=1 to n do for j:=1 to n do a[i, j]:=Random (100) ; { вывод на экран } for i:=1 to n do begin for j:=1 to n do write (a[i, j]:4) ; writeln; end; { цикл по массиву } for j:=1 to n do {цикл по колонке } begin s:=0; p:=1; for i:=1 to n do {цикл по строке} if (a[i, j] mod 2 = 0) then p:=p*a[i, j] else s:=s+a[i, j]; if (p>1) then c[j]:=p else c[j]:=0; if (s>0) then b[j]:=s else b[j]:=0; end; writeln ('массив для четных элементов') ; for i:=1 to n do write (c[i]:10) ; writeln; writeln ('массив для нечетных элементов') ; for i:=1 to n do write (b[i]:4) ; end.