В квадратной матрице найти количество элементов равных "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.