Найти количество нулевых элементов среди 20 в веденых с клавиатуры
Найти количество нулевых элементов среди 20 в веденых с клавиатуры
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы