Кому не сложно...Сам никак не могу..

[Pavel Lapin]

Дан двумерный массив. Определить:
А) среднее арифметическое элементов n-го столбца массива;
Б) среднее арифметическое элементов первой строки массива.

[mifomen]

напишу только тело программы

write('Введите номер столбца')
readln(k);
for i:=1 to 5 do
ar:=ar+a[i,k];
ar:=abs(trunc(ar*0.2)); //модуль берем чтобы среднее было положительным
write(ar); // умножали на 0.2 = 1/5, потому что цикл i :=1 до 5
readln;
end;

А для первой строки меняется местами i на j, находиться аналогично!