// PascalABC.NET 3.2, сборка 1345 от 24.11.2016 // Внимание! Если программа не работает, обновите её версию! begin var a:=ArrRandom(10,1,30); a.Println; Writeln('Сумма четных чисел равна ',a.Where(x->x.IsEven).Sum) end.
Пример 27 11 27 26 20 17 26 20 3 25 Сумма четных чисел равна 92
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(10,1,30); a.Println;
Writeln('Сумма четных чисел равна ',a.Where(x->x.IsEven).Sum)
end.
Пример
27 11 27 26 20 17 26 20 3 25
Сумма четных чисел равна 92