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

Question

Информатика

Параскева

17 января, 06:33

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

+4

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