Дан одномерный массив размера n (n считывается с клавиатуры). Найти произведение всех элементов этого массива, кратных трем. Если таких элементов нет,вывести на экран 0.
var a: array [1...n] of integer; j, k, max: integer: begin for j:=1 to n do readln(a[j]); sum:=0 For j:=1 to n do if a[j]mod=0 then sum:=sum*a[j] Writeln(sum); end.
