Предмет: Информатика,
автор: anyutickmalutina2018
Введите с клавиатуры одномерный массив F(T), элементами которого являются положительные и отрицательные целые числа. Найдите среднее арифметическое значение четных и нечетных элементов массива, сравните значение между собой, определив минимальное. Сформируйте новый массив E(N), состоящий из элементов массива F(T), которые больше найденного минимального значения.
FMLFML:
На каком языке?
Ответы
Автор ответа:
1
Предполагается, что в массиве есть хотя бы одно четное и одно нечетное значение.
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.
Приложения:
Интересные вопросы
Предмет: Русский язык,
автор: milliestape
Предмет: Химия,
автор: mindubaev71
Предмет: Математика,
автор: liza29379
Предмет: Математика,
автор: meowmoore1
Предмет: Биология,
автор: цыцунов234