Question

Дан целочисленный массив из 30 элементов. элементы массива могут принимать целые значения от 0 до 100. опишите на языке программирования паскаль алгоритм, позволяющий найти и вывести произведение элементов массива, которые имеют чётное значение и не оканчиваются на 0. гарантируется, что в исходном массиве есть хотя бы один элемент, значение которого чётно и не оканчиваются на 0.

Answer 1

//PascalABC.Net 3.2 сборка 1318

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.

Answer 2

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

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