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

Question

Информатика

Марианна

7 мая, 07:01

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

+1

Ответы (1)

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

Венюся · Answer 1

Program n1;

var m, k, p, a, i: integer;

begin

readln (m) ;

k:=0;

p:=1;

for i:=1 to m do

begin

readln (a) ;

if a<0 then k:=k+1;

if a mod 20 then p:=p*a;

end;

writeln (k) ;

writeln (p) ;

end.