Question

Составьте программу которая заполняет массив а[1..10] случайными целыми числами в диапазоне от 1 до 10 и вычислите сумму элементов массива с чётными значениями

Answer 1

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016
// Внимание! В других версиях языка работа не гарантируется!
begin
  var a:=ArrRandom(10,1,10); a.Println;
  Writeln('S=',a.Where(x->x.IsEven).Sum)
end.

Пример
8 7 5 4 3 8 2 2 6 7
S=30