Составьте программу нахождения среднего арифметического всех элементов матрицы в размере 8*8

Выше решение не для матрицы 8 х8, а для одномерного массива из 5-ти элементов. Вот для двухмерной матрицы 8 х8:

const n=8;

var a:array[1 ... n, 1 ... n] of integer;

i, j, s:integer; sr:real;

begin

for i:=1 to n do

for j:=1 to n do a[i, j]:=random (50) - 20;

for i:=1 to n do begin

for j:=1 to n do write (a[i, j]:4) ;

writeln;

end;

writeln;

sr:=0; s:=0;

for i:=1 to n do

for j:=1 to n do

s:=s+a[i, j];

sr:=s/sqr (n) ;

write ('среднее арифметическое всех элементов матрицы = ', sr) ;

end.