Помогите решить задачу на Паскале

[Анюта1]

Помогите решить задачу на Паскале

дано натуральное число n действительной матрица размером mxn/ Найдите среднеарифметическое
а) каждого из столбца
б) каждого из столбца имеющего четный номер

 

[AlexZir]

Привожу только цикл нахождения среднего арифметического каждого столбца

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;

Описание переменных, заполнение массива значениями и украшательства интерфейса реализуйте сами.