[Uniq!]

матрица как я понимаю NxM значит k= NxM
зачем его считать в цикле?

насколько я помню массивы в oPascal начинаются с нуля
т.е. мой вариант таков:

Код:

for i:=0 to n do
 for j:=0 to m do
  summ:=summ+a[i,j];

k:=n*m;
SrSumm:=Summ/k;