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.

Answer 2

Хорошо! Для начала, пожалуйста, укажите значения переменных 'a' и 'b', чтобы я мог создать массив с целыми числами из указанного диапазона.