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

0 голосов
36 просмотров

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


Информатика (14 баллов) | 36 просмотров
Дан 1 ответ
0 голосов

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.

(516 баллов)