Привожу только цикл нахождения среднего арифметического каждого столбца
Код:
for i:=1 to n do begin
s:=0;
for j:=1 to m do
s:=s+a[m,n];
s:=s/m;
writeln('среднее арифметическое элементов ',i,' столбца равно ',s); end;
Привожу только цикл нахождения среднего арифметического каждого четного столбца
Код:
for i:=1 to n do
if i mod 2=0 then begin s:=0;
for j:=1 to m do
s:=s+a[m,n];
s:=s/m;
writeln('среднее арифметическое элементов ',i,' столбца равно ',s); end;
Описание переменных, заполнение массива значениями и украшательства интерфейса реализуйте сами.