Дана матрица А(m,n).напечатать номер каждой строки ...(Паскаль)

[Сашка19]

Дана матрица А(m,n).Напечатать номер каждой строки ,в которой второй элемент меньше среднего арифметического элементов этой строки и число таких строк.решить с помощью подпрограммы функции.

[Serge_Bliznykov]

ну и что не получается?
пишете функцию, куда передаёте, например, матрицу, и номер строки - она возвращает среднеарифметическое.

{зададим размер матрицы константами}
const m = 5;
        n = 7;   

type MyMassType = array[1..m, 1..n) of integer;

function GetAverage( M : MyMassType, RowNum : integer) : real;
var Sum : real;
     i :  integer;
begin
   Sum := 0;
   for i:=1 to n do Sum := Sum + M[RowNum, i];
   GetAverage := Sum / n
end;

{основная программа}
var Matr : MyMassType;
  i, j, CountRow : integer;

begin
   for i:=1 to m do
      for j:=1 to n do
   ... тут ввод матрицы Matr любым удобным/понятным Вам образом ...

  {основной цикл решения}
  CountRow := 0;
  for i:=1 to m do
     if  Matr[i, 2] < GetAverage( Matr, i ) then begin
         WriteLn('Номер строки: ', i);
         inc(CountRow);
     end;

  WriteLn('Всего число таких строк: ', CountRow);

  Readln;

end.

[Сашка19]

спасибо,просто плохо работаю с функциями и процедурами!)