Вводится последовательность из 15 целых чисел. Найти произведение четных из них.

Question

Информатика

Борюня

27 сентября, 21:48

Вводится последовательность из 15 целых чисел. Найти произведение четных из них.

+2

Ответы (1)

Знаешь ответ?

Ларисса · Answer 1

Var a:array[1 ... 15] of integer;

i, b: integer;

begin

b:=1;

for i:=1 to 15 do readln (a[i]);

for i:=1 to 15 do if a[i] mod 2 = 0 then b:=b*a[i];

writeln (b);

end.