Дан массив из 15 целых чисел. Найти произведение элементов массива, кратных 3. Элементы...

Question

Дан массив из 15 целых чисел.
Найти произведение элементов массива, кратных 3.
Элементы массива, значения которых = 0, не считать кратные 3.
Sample Input 1:

-5 4 6 3 -1 7 0 7 8 -4 -6 -9 7 -2 1
Sample Output 1:

972
Sample Input 2:

-10 -2 -5 0 8 2 8 -8 5 -3 8 -2 -9 -6 -9
Sample Output 2:

1458
Sample Input 3:

5 5 7 5 8 -10 8 4 -5 -1 -5 9 -5 -8 0
Sample Output 3:

9

Answer 1

Var
a:array[1..15] of Integer ;
i,p:Integer;
begin
p:=1;
for i:=1 to 15 do
begin
read(a[i]);
if (a[i] mod 3 = 0) and (a[i] <>0) then p:=p*a[i];
end;
Writeln(p);
end.