Дана последовательность из 10 элементов. Преобразовать ее так, чтобы самый большой элемент заменился на сумму всех элементов массива. Если таких элементов несколько, то они все должны замениться.
var a := ReadArrInteger(10); // a - массив целых чисел из 10 элементов
var maxA := a.Max; // maxA - максимальное число
var sumA := a.Sum; // sumA - сумма чисел
a.Select(x -> x = maxA ? sumA : x).Print;
Пример ввода:
1 2 3 4 5 5 4 3 2 1
Пример вывода:
1 2 3 4 30 30 4 3 2 1
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Дана последовательность из 10 элементов. Преобразовать ее так, чтобы самый большой элемент заменился на сумму всех элементов массива. Если таких элементов несколько, то они все должны замениться.
Код (PascalABC.NET)
##
var a := ReadArrInteger(10); // a - массив целых чисел из 10 элементов
var maxA := a.Max; // maxA - максимальное число
var sumA := a.Sum; // sumA - сумма чисел
a.Select(x -> x = maxA ? sumA : x).Print;
Пример ввода:
1 2 3 4 5 5 4 3 2 1
Пример вывода:
1 2 3 4 30 30 4 3 2 1