С клавиатуры вводится l целых чисел. Подсчитать кол-во печатных чисел и произведение положительных

Question

Информатика

Дареха

6 августа, 15:15

С клавиатуры вводится l целых чисел. Подсчитать кол-во печатных чисел и произведение положительных

+2

Ответы (1)

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

Рома · Answer 1

Program n1;

var i, a, kn, pp, n: integer;

begin

write ('введите кол-во чисел: ') ;

readln (n) ;

pp:=1;

kn:=0;

for i:=1 to n do

begin

write ('введите ', i,' число: ') ;

readln (a) ;

if a mod 20 then kn:=kn+1;

if a>0 then pp:=pp*a;

end;

writeln ('кол-во неч. чисел: ', kn) ;

writeln ('произв. пол чисел: ', pp) ;

end.