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

Question

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

Answer 1

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.

Comments

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

---

никак)

---

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

---

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

Answer 2

Исходный код программы приложен

---