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

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.