1)дан двумерный массив целых чисел размерностью 5х7. Найти и вывести ** экран среднее...

Question

1)дан двумерный массив целых чисел размерностью 5х7. Найти и вывести на экран среднее арифметическое элементов этого массива

Answer 1

Program n1;
Uses CRT;
Const n=5; m=7;
Var A: array[1..n,1..n] of integer;
i,j,s,k: integer;
begin
clrscr;
randomize;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
s:=s+a[i,j];
k:=k+1;
end;
writeln;
end;
Writeln('srednee arifmeticheskoe =',s/k:4:4);
readln
end.