Question

Составить программу. Создать массив из 10 элементов случайным образом, найти сумму четных чисел.

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(10, -50, 50);

 a.Println;

 a.Where(t -> t.IsEven).Sum.Println

end.

Пример

13 34 1 24 2 -47 -31 -22 -12 13

26