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

Question

Дан массив из 20 элементов целого типа , найти произведение нечетных кратных 3 элементов массива . Язык Паскаль)

Comments

Нечетных по порядку элементов, значения которых кратны трем или нечетных по значению элементов, с номерами по порядку кратными трем? Третий вариант - про нечетные и одновременно кратные трем не спрашиваю - это уж вряд ли...

---

Хотя, тоже возможно, чтобы не входили кратные 6.

Answer 1

Var

a: array[1..20] of integer;

i,x: integer;

Begin

x := 1;

write('Введите 20 чисел для заполнения массива: ');

for i := 1 to 20 do begin

readln(a[i]);

end;

for i := 1 to 20 do begin

if(a[i] mod 2 = 1) and (a[i] mod 3 = 0) then

x := x * a[i];

end;

writeln('Произведение чисел нечетных и кратных 3 = ', x);

End.

---