Процедуры и функции (PascalABC.NET)

[FlayGlam]

Даны три целые матрицы размером 9х4. Напечатать ту из них, где больше нулевых строк (если таких матриц несколько, напечатать их все).

[Serge_Bliznykov]

FlayGlam, задача несложная.
так как матриц 3, то для вычисления количества нулевых строк нужно использовать функцию (или процедуру).

например,

const n=9, m=4;
type TMyArray = array[1..n,1..m] of integer;

function CountZeroRows(M : TMyArray):integer;
var i,j, k, Res : integer;
begin
   Res := 0;
   for i:=1 to n do begin
      k:=0;
      for j:=1 to m do
         if M[i,j]=0 then Inc(k);
      if k=m then {все элементы в строке равны нулю}
           Inc(Res);
   end;
   CountZeroRows := Res
end;

что у Вас не получается?