Question

дан массив натуральных чисел,заполненный случайными числами. найти произведение элементов кратных 3.

Answer 1

s := 1 ;

for i := 1 to n do

  if a[i] mod 3 = 0 then

      s := s * a[i];

writeln(s);