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

 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.