Введите с клавиатуры одномерный массив f(t), элементами которого являются положительные и отрицательные целые числа. найдите среднее арифметическое значение четных и нечетных элементов массива, сравните значение между собой, определив минимальное. сформируйте новый массив e(n), состоящий из элементов массива f(t), которые больше найденного минимального значения.

dariasit dariasit    1   02.10.2019 11:20    2

Ответы

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

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.


Введите с клавиатуры одномерный массив f(t), элементами которого являются положительные и отрицатель
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика