Чтобы решить задачу, мы можем следовать следующему алгоритму:

1. Создание массива: Мы создадим массив из 30 элементов, который будет заполняться случайными значениями от 0 до 100.
2. Инициализация переменной для произведения: Создадим переменную для хранения произведения, инициализируем её единицей, так как умножение на 1 не изменит значение.
3. Цикл по элементам массива: Проходим по каждому элементу массива и проверяем условия: элемент должен быть чётным и не заканчиваться на 0.
4. Умножение подходящих элементов: Если элемент удовлетворяет условиям, умножаем его на текущее значение произведения.
5. Вывод результата: После завершения цикла выводим произведение.

Теперь давайте напишем код на языке Паскаль, который реализует этот алгоритм:

program ProductOfEvenNumbers;

var
    arr: array[1..30] of integer;
    i, product: integer;

begin
    // Заполнение массива случайными числами от 0 до 100
    randomize;
    for i := 1 to 30 do
    begin
        arr[i] := random(101); // случайное число от 0 до 100
    end;

    // Инициализация переменной для произведения
    product := 1;

    // Поиск произведения чётных элементов, не оканчивающихся на 0
    for i := 1 to 30 do
    begin
        if (arr[i] mod 2 = 0) and (arr[i] mod 10 <> 0) then
        begin
            product := product * arr[i];
        end;
    end;

    // Вывод результата
    writeln('Произведение чётных элементов, не оканчивающихся на 0: ', product);
end.

В этом коде:

• Мы используем randomize для инициализации генератора случайных чисел.
• Массив заполняется случайными числами в диапазоне от 0 до 100 с помощью функции random(101).
• Условия проверки: arr[i] mod 2 = 0 проверяет, что число чётное, а arr[i] mod 10 <> 0 проверяет, что оно не оканчивается на 0.
• Результат выводится с помощью writeln.

Таким образом, мы получаем произведение всех элементов массива, которые соответствуют заданным условиям.