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

Question

Информатика

Антоша

17 ноября, 16:59

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

+3

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