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

Question

Информатика

Андрон

17 февраля, 06:59

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

+2

Ответы (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.