Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от 0 до 100. опишите на языке программирования паскаль алгоритм, позволяющий найти и вывести произведение элементов массива, которые имеют чётное значение и не оканчиваются на 0. гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого чётно и не оканчиваются на 0.
Var
res:BigInteger = 1;
begin
var ar:=ReadArrInteger(30);
var armod:=ar.Where(x -> x mod 10 <> 0).Where(x -> x mod 2=0);
foreach var x in armod do
res*=x;
writeln(res);
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(30,0,100); a.Println;
var s:=a.Where(x->x.IsEven and (x mod 10<>0));
if s.Count>0 then Writeln(s.Aggregate(BigInteger(1),(x,y)->x*y))
else Writeln('Нет элементов, удовлетворяющих условию')
end.
Пример
68 6 20 51 68 38 45 92 74 95 85 12 46 75 88 31 80 35 38 42 98 50 34 76 35 65 18 73 58 10
147111268420451335057440768