В квадратной матрице найти количество элементов равных "0"

var
  a: array [1..N,1..N] of real;
  i: integer;
  j: integer;
  kol: real;

begin
// ввести значения массива a вашим любимым способом
for i:=1 to N do
 for j:=1 to N do
  if a[i,j]=0 then
   kol=kol+1;
write('Количество нулей: ', kol);
end.