loa364
?>

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

Информатика

Ответы

davidovalbert6

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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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

Популярные вопросы в разделе

Роман1406
almazsit85
alexeylipatov
АЛЕКСЕЙ
dashkevich-76611
mikhail
Staroverovanatasa494
ngoncharov573
Кулагина_Владимир1179
ИванМолчанов
verakmves
Ruslan374
ikuvila5484
Египтян2004
Obukhov-Buriko