// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(8,1,10); a.Println;
Writeln(Количество элементов с четными значениями ,
a.Where(x->x.IsEven).Count);
Writeln(Сумма элементов с нечетными значениями ,
a.Where(x->x.IsOdd).Sum)
end.
Пример
7 4 8 6 5 8 7 6
Количество элементов с четными значениями 5
Сумма элементов с нечетными значениями 19
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.