Массив А (N, M). В каждом столбце найти среднее арифметическое нечетных элементов. Из полученных значений сформировать одномерный массив.

Uses Crt;

const

n=5; m=7;

var

a:array[1 ... n, 1 ... m]of integer;

b:array[1 ... m]of real;

i, j, k, c:integer;

s:real;

begin

clrScr;

for i:=1 to n do

begin

writeln;

for j:=1 to m do

begin

a[i, j]:=random (30) ;

write (a[i, j]:4) ;

end;

end;

writeln;

for j:=1 to m do

begin

s:=0; k:=0;

for i:=1 to n do

if a[i, j]mod 20 then

begin

s:=s+a[i, j];

k:=k+1;

end;

if k0 then

begin

c:=c+1;

b[c]:=s/k;

end;

end;

for i:=1 to c do

write (b[i]:8:2) ;

readkey;

end.