Регистрация
Войти
Стать экспертом Правила
Информатика

Напишите программу, которая заменяет все четные элементы массива суммой элемента и среднего арифметического всех четных элементов массива. Выведите на экран конечный массивы.Формат вводаПервая строка содержит размер массива N. Во второй строке через пробел задаются N чисел – элементы массива. Гарантируется, что 1 < N ≤ 10000. Элементы массива - натуральные числа, не превышающие 1000Формат выводаМассив полученных чиселПримерВвод 54 5 6 10 7Вывод10.7 5.0 12.7 16.7 7.0

ОТВЕТЫ



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
698
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам