В матрице определить количество элементов, равных нулю - Turbo Pascal
Формулировка задачи:
Программа, не могу понять как сделать
Определить количество элементов равных нулю в заданной матрице А размерностью n*n.
Решение задачи: «В матрице определить количество элементов, равных нулю»
textual
Листинг программы
k:=0; for i:=0 to n-1 do //или for i:=1 to n, я хз что у вас за матрица for j:=0 to n-1 do if a[i,j]=0 then inc(k); write(k);
Объяснение кода листинга программы
k := 0;
for i := 0 to n-1 do // или for i := 1 to n
for j := 0 to n-1 do
if a[i,j] = 0 then inc(k);
write(k);