Составить программу,массив распечатать в виде матрицы.Xij=(ln(i+j^2))/(i^2+j^2),найти среднее арифметичекоеэлементов столбцов i=1,...5,j=1,...4.
for i:= 1 to 5 do
for j:=1 nj 4 do
x[i,j] := (ln(i + j*j)/(i*i + j*j);
for i:= 1 to 5 do begin
for j:=1 nj 4 do
write(x[i,j]:8:3);
writeln; end;
правильно?

После for'ов begin'ы и end'ы неплохо бы поставить. Ну и объявления переменных тоже не помешает.
Не посчитали среднее по столбцам.

может подскажите как подсчитать!часть программы!

Делаете цикл по столбцам,в каждой итерации - цикл по строкам, в котором складываете все элементы столбца. Потом делите на количество.