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

Question

Информатика

Инесса

1 февраля, 01:08

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

+4

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