Question

Заполните одномерный массив целыми числами из диапазона [a,b]. Найдите сумму четных и нечетных элементов одномерного массива

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('n =');

 var (a, b) := ReadInteger2('Введите a и b:');

 var m := ArrRandom(n, a, b);

 m.Println;

 Println('Сумма четных равна', m.Where(p -> p.IsEven).Sum);

 Println('Сумма нечетных равна', m.Where(p -> p.IsOdd).Sum);

end.