подсчитать число нулевых элементов для матриц (Pascal).

[BreeKs]

Подсчитать число нулевых элементов для матрицы A(N,M) и B(M,M), где M<=20 и N<=20, используя подпрограмму-функций пользователя.

[Serge_Bliznykov]

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

начать можно, например, так:

type 
   MyArrayType = array[1..20, 1..20] of integer;

function CountZero( M : MyArrayType; CountRow, CountColumn : integer);
var i, j, cnZ : integer;
begin
   cnZ := 0;
   for i:=1 to CountRow do
      for j:=1 to CountColumn do
         if M[i,j]=0 then Inc(cnZ);
   CountZero := cnZ
end;

по сути, задача ваша уже решена - функция для подсчёта написана.
Вам осталось дописать определение массивов A и B с типом MyArrayType, заполнение этих массивов (можно случайными числами), вызов функции подсчёта нулевых значений и выдача полученных результатов.
Не забудьте, когда вызываете функцию передавать в неё и размеры массивов (число строк и число столбцов).

Успехов.