Question

Составьте массив из 30 элементов, вывести произведение нечётных чисел, кратных трём

Answer 1

Держи. 

var A : array[1..30] of integer; x,i : integer;
begin
x:=1;
for i:=1 to 30 do
begin;
read(A[i]);
if ((A[i] mod 2)>0) and ((A[i] mod 3) = 0) 
then 
x:=x*A[i];
end;
if x=1 then x:=0;
Writeln(x);
end.