Program А1_5; 

Var 
   A: array [1..10,1..10] of integer; 
   j, i, n, m, k, c: integer; 
   x: real; 

Begin 
  WriteLn('Введіть розміри масиву: '); 
  ReadLn(n,m); 
  WriteLn('Введіть ',n*m,' елементів масиву'); 
  For i:=1 to n do 
    For j:=1 to m do 
      Read(A[i,j]); 
  ReadLn; 
  WriteLn('Матриця:'); 
  For i:=1 to n do 
    Begin 
      For j:=1 to m do 
        Write(A[i,j]:4); 
      WriteLn; 
    end; 
  WriteLn; 
  Write('Введіть число: '); 
  ReadLn(x); 
  For i:=1 to n do 
    Begin 
      k:=0; 
      For j:=1 to m do 
        k:=k+a[i,j]; 
      If ((k/m)>x) then 
        Begin 
          x:=k/m; 
          c:=i; 
        end;
        WriteLn('Сума ',i,' ряду = ',k); 
    end; 
  Write(c,' рядок найбільший по сердньому арифметичному.'); 
end.