Введите с клавиатуры одномерный массив F(T), элементами которого являются положительные и отрицательные целые числа. Найдите среднее арифметическое значение четных и нечетных элементов массива, сравните значение между собой, определив минимальное. Сформируйте новый массив E(N), состоящий из элементов массива F(T), которые больше найденного минимального значения.

Предполагается, что в массиве есть хотя бы одно четное и одно нечетное значение.

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var F := ReadArrInteger(ReadInteger('T='));

 var ae := F.Where(p -> p.IsEven).Average;

 var ao := F.Where(p -> p.IsOdd).Average;

 var m := Min(ae, ao);

 var E := F.Where(p -> p > m).ToArray;

 E.Println

end.