program PascalGuru;
var A:array[1..50,1..50] of integer;{объявление переменных}
    B:array[1..100] of real;
    n,m,i,j,k:integer;
    sr,max:real;
 
{-----------------------------------}
begin
write('N= ');  readln(n);
write('M= ');  readln(m);
 
 
for i:=1 to n do
for j:=1 to m do begin write('A[',i,',',j,']='); readln(A[i,j]); end;
 
writeln('Vvedennyi massiv:');
for i:=1 to n do begin writeln;
for j:=1 to m do write (A[i,j]:8);  end;
writeln;
 
sr:=0;
for i:=1 to n do
for j:=1 to m do sr:=sr+A[i,j];  sr:=sr/(n*m);
 
k:=0;
for i:=1 to n do
for j:=1 to m do
    begin
    inc(k);
    B[k]:=abs(sr-A[i,j]);
    end;
 
max:=B[1];
for i:=2 to k do
if B[i]>max then max:=B[i];
 
writeln;
writeln('Rezult(max): ',max:0:3);
 
readln;
end.