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.