Дан целочисленный массив из 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.

P:=1
for i:=1 to N do begin
if (a[i] mod 2 = 0) and (a[i] mod 100) then 
p:=p*a[i];
end;
writeln(p)