Question

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

Answer 1

выше решение не для матрицы 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.