Найти количество нулевых элементов среди 20 в веденых с клавиатуры

Question

Информатика

Мальвина

8 июня, 19:56

Найти количество нулевых элементов среди 20 в веденых с клавиатуры

+1

Ответы (1)

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

Кристя · Answer 1

Var

i, count:integer;

h: array [1 ... 20] of integer;

begin

count:=0;

writeln ('Введите элементы') ;

for i:=1 to 20 do

read (h[i]) ;

for i:=1 to 20 do

if h[i]>0 then

count:=count+1;

writeln ('Количество нулевых элементов ', count)

end.