Найти количество нулевых элементов в массиве с (12)

Question

Информатика

Минаша

16 февраля, 17:32

Найти количество нулевых элементов в массиве с (12)

+4

Ответы (1)

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

Филарета · Answer 1

Program zeromas;

var

c: array[1 ... 12] of integer;

i, z: integer;

begin

z : = 0;

for i : = 1 to 12 do

begin

readln (c[i]) ;

if c[i] = 0 then

z : = z + 1;

end;

writeln ('Нулевых элементов: ', z) ;

end.