Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 100. Опишите на языке программирования Паскаль алгоритм, позволяющий найти и вывести произведение элементов массива, которые имеют чётное значение и не оканчиваются на 0. Гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого чётно и не оканчиваются на 0.
const N=30;
var a: array [1..N] of longint;
і, j, p: longint;
begin
for і := 1 to N do
a[i]:=random(__);
...
end.