Дан массив из 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
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.