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

Question

Информатика

Флорентин

26 июня, 10:45

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

+4

Ответы (1)

Знаете ответ на вопрос?

Настюня · 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.