Дан массив натуральных чисел, заполненный случайными числами

Question

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

Panik · Accepted Answer

s: =1; for i: =1 to n do if a[i] mod 3=0 then s: =s*a[i]; writeln (s);