Question

Заполнить массив......................................

Answer 1

===== PascalABC.NET =====

begin

 var a := ArrRandom(10, 0, 100);

 a.Println;

 var s := a.Where(p -> p.IsOdd); // нечетные

 Print(s.Sum, s.Count);

 a.Where(p -> p.IsEven).Average.Print

end.