Const
 N=10;

Var
 A,B:Array[1..N,1..N] of Real;
 i,j,k,m,Kmin,Kmax,Mmin,Mmax,Q:Byte;
 Sum:Real;

Begin

 Randomize;

 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     A[i,j]:=Random*10-5;
     Write(A[i,j]:7:3);
     B[i,j]:=0;
    end;
   writeln;
  end;
 Writeln;

 For i:=1 to N do
  begin
   For j:=1 to N do
    begin
     Q:=0;
     If i=1 then Kmin:=i else Kmin:=i-1;
     If i=N then Kmax:=i else Kmax:=i+1;
     If j=1 then Mmin:=j else Mmin:=j-1;
     If j=N then Mmax:=j else Mmax:=j+1;
     for k:=Kmin to Kmax do
      for m:=Mmin to Mmax do
       if Not((k=i) and (m=j)) then
        begin
         B[i,j]:=B[i,j]+A[k,m];
         Inc(Q);
        end;
     B[i,j]:=B[i,j]/Q;
     Write(B[i,j]:7:3);
    end;
   Writeln;
  end;

 Sum:=0;
 For i:=2 to N do
  For j:=1 to i-1 do
   Sum:=Sum+Abs(B[i,j]);
 Writeln('Sum = ',Sum:0:3);

 Readln;

End.