Задача по информатике! В последовательности из 18 элементов найти произведения элементов, оканчивающихся на 3 или 7 PASCAL

Предыдущий
вопрос Следующий
вопрос

program Task;
var
arr: array[1..18] of integer;
i: integer;
product: integer;
begin
// Инициализируем массив случайными числами
randomize;
for i := 1 to 18 do
begin
arr[i] := random(100); // Генерируем случайные числа от 0 до 99
end;

product := 1;
for i := 1 to 18 do
begin
if (arr[i] mod 10 = 3) or (arr[i] mod 10 = 7) then // Проверяем, оканчивается ли число на 3 или 7
begin
product := product * arr[i]; // Добавляем число к произведению
end;
end;

writeln('Произведение элементов, оканчивающихся на 3 или 7: ', product);
end.