uses crt;

const num=10;

var arr:array [1..num,1..num] of real;

   m:integer;

procedure xD;

var i,j:integer;

begin

randomize;

for i:=1 to num do

begin

 for j:=1 to num do

  begin

   arr[i,j]:=10*random;

   write(arr[i,j]:5:2);

  end;

 writeln;

end;

end;

procedure sr;

var sr:real;

   i,j:integer;

begin

sr:=0;

for i:=1 to num do

for j:=1 to num do

sr:=sr+arr[i,j];

sr:=sr/num/num;

writeln('Среднее арифметическое ',sr:0:2);

end;

begin

xD;

Sr;

end.