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

Как кол-во может быть вещественным?

никак)

Ну так исправьте свой ответ

не могу изменить

var   a: array [1..N,1..N] of real;  i: integer;  j: integer;  kol: integer;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.