[GreyObr]

Определить:
а) среднее арифметическое элементов главной диагонали квадратной матрицы;

Код:

s:=0;
for i:=1 to n do
  s:=s+a[i,i];
sr_arifmetic:=s/n

Определить:
б) среднее арифметическое элементов побочной диагонали квадратной матрицы

Код:

s:=0;
for i:=1 to n do
  s:=s+a[n-i+1,i];
sr_arifmetic:=s/n