Подпрограммы и обработка матриц

[dusya9992]

Здравствуйте !!! Помогите пожалуйста!!!!!!!!!!
Задав двумерный массив вещественных данных (матрицу А), реализовать его обработку, как указано в варианте. Исходные данные задать самостоятельно, учитывая специфику задачи. В программе должны быть предусмотрены процедуры ввода-вывода элементов массива А и его обработки.
Задана квадратная матрица A размером nxn (n <=10), состоящая из действительных элементов.
Найти среднее арифметическое элементов каждого из нечетных столбцов этой матрицы.

Заранее спасибо!!!

[Stilet]

Найти среднее арифметическое элементов каждого из нечетных столбцов этой матрицы.

Ну вот:

j:=2;while (j<=n) do begin
 s:=0;
 for i:=1 to n do begin
    s:=s+a[j,i];
 end;
 write(s div n:5);
 inc(j,2);
end;

Навскидку правда...