Question

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

Answer 1

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