Question

Дана последовательность из 10 элементов. Преобразовать ее так, чтобы самый большой элемент заменился на сумму всех элементов массива. Если таких элементов несколько, то они все должны замениться.​

Answer 1

Код (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