Вопрос по информатике:
Напишите программу, которая заменяет все четные элементы массива суммой элемента и среднего арифметического всех четных элементов массива. Выведите на экран конечный массивы.
Формат ввода
Первая строка содержит размер массива N. Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 1 < N ≤ 10000. Элементы массива - натуральные числа, не превышающие 1000
Формат вывода
Массив полученных чисел
Пример
Ввод
5
4 5 6 10 7
Вывод
10.7 5.0 12.7 16.7 7.0
- 07.06.2018 00:50
- Информатика
- remove_red_eye 4926
- thumb_up 31
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
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
- 07.06.2018 12:39
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.