Напишите программу, которая заменяет все четные элементы массива суммой элемента и среднего арифметического всех четных элементов массива. Выведите на экран конечный массивы. Формат ввода Первая строка содержит размер массива N...

Напишите программу, которая заменяет все четные элементы массива суммой элемента и среднего арифметического всех четных элементов массива. Выведите на экран конечный массивы. Формат ввода Первая строка содержит размер массива N. Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 1 < N ≤ 10000. Элементы массива - натуральные числа, не превышающие 1000 Формат вывода Массив полученных чисел Пример Ввод 5 4 5 6 10 7 Вывод 10.7 5.0 12.7 16.7 7.0
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию! begin   var a:=ReadArrReal(ReadInteger);   var m:=a.Where(x->Trunc(x).IsEven).Average;   a.Transform(x->Trunc(x).IsEven?x+m:x);   a.Println end. Пример 5 4 5 6 10 7 10.6666666666667 5 12.6666666666667 16.6666666666667 7
Не нашли ответ?
Ответить на вопрос
Похожие вопросы