Question

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

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.