Введите с клавиатуры одномерный массив 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.