Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 300. Опишите на русском языкке или на паскале алгоритм, который позволит найти произведение тех элементов массива, которые имеют нечётный индекс и кратны трем. Гарантируется, что хотя бы один элемент массива удовлетворяет этому условию

program zz1;

const n = 40; / / задаем количество чисел в массиве

var i, k:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел с клавиатуры и записываем их в массив

read (m[i]);

for i:=1 to n do / / выводим исходный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

k:=1;

for i:=1 to n do

begin

if (m[i] mod 3 = 0) and (i mod 2 = 1) then k:=k * m[i];

end;

writeln ('произведение найденных элементов = ', k); / / выводим ответ

end.