Алгоритм на псевдокоде:

Инициализируем переменную result как 1 (произведение элементов)Для каждого элемента i от 0 до 39 с шагом 2 (начиная с нечетного индекса)
Если элемент i кратен трем
Умножаем result на значение элемента iВыводим result

Пример на Pascal:

program MultiplyOddIndexByThree;
var
arr: array[1..40] of Integer;
i, result: Integer;
begin
result := 1;
// заполнение массива arr значениями
for i := 1 to 40 do
begin
if (i mod 2 = 1) and (arr[i] mod 3 = 0) then
begin
result := result * arr[i];
end;
end;
writeln('Произведение элементов с нечетным индексом и кратных трем: ', result);
end.