Type Matr=Array[1..10,1..10] of Integer;
     Vector=Array[1..10] of Double;
Var a,b,c:Matr;
    min:Integer;
    s:Vector;
  Procedure Vvod(Var m:Matr);
  Var i,j:Byte;
  Begin
    For i:=1 to 10 do
      For j:=1 to 10 do
        m[i,j]:=Random(300);
  End;  
  Procedure Vivod(m:Matr);
  Var i,j:Byte;
  Begin
  For i:=1 to 10 do
  Begin
  For j:=1 to 10 do Write(m[i,j]:7);
  Writeln;
  End;
 End;
   Procedure Sum(m1,m2:Matr; Var m3:Matr);
   Var i,j:Byte;
   Begin
    For i:=1 to 10 do
     For j:=1 to 10 do
     m3[i,j]:=m1[i,j]-m2[i,j];
     End;
     Procedure sredn(m:Matr; var v:Vector);
     Var i,j:Byte;
     Begin
      For i:=1 to 10 do
      Begin
      v[i]:=0;
      For j:=1 to 10 do v[i]:=v[i]+m[i,j];
      v[i]:=v[i]/10;
      End;
   End;
   Procedure VivodV(v:Vector);
   Var i:byte;
   Begin
   For i:=1 to 10 do 
   Writeln(v[i]:6);
   End;
   
 
   
   
   Begin
   Vvod(a);
   Vivod(a);
   Writeln;
   Vvod(b);
   Vivod(b);
   Writeln;
   sum(a,b,c);
   Vivod(c);
   Writeln;
   Sredn(c,s);
   VivodV(s);
   End.