// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 begin var a:=ArrRandom(10,-5,15); a.Println; Writeln('Сумма элементов ',a.Sum); Writeln('Количество четных элементов ',a.Where(x->x.IsEven).Count) end.
Тестовое решение: -3 4 10 1 2 6 8 7 10 14 Сумма элементов 59 Количество четных элементов 7
begin
var a:=ArrRandom(10,-5,15); a.Println;
Writeln('Сумма элементов ',a.Sum);
Writeln('Количество четных элементов ',a.Where(x->x.IsEven).Count)
end.
Тестовое решение:
-3 4 10 1 2 6 8 7 10 14
Сумма элементов 59
Количество четных элементов 7