Дана целочисленная прямоугольная матрица 6*8. Вычислить количество нулевых ячеек матрицы.

Question

Информатика

Эдюня

21 ноября, 00:06

Дана целочисленная прямоугольная матрица 6*8. Вычислить количество нулевых ячеек матрицы.

+2

Ответы (1)

Знаете ответ на вопрос?

Созонтий · Answer 1

program massiv;

var i, j, kol:longint;

a:array[1 ... 6,1 ... 8]of longint;

begin

for i:=1 to 6 do

for j:=1 to 8 do

read (a[i, j]) ;

for i:=1 to 6 do

for j:=1 to 8 do

if a[i, j]=0 then kol:=kol+1;

writeln (kol) ;

end.