Дана последовательность из 10 элементов. Преобразовать ее так, чтобы самый большой элемент заменился на сумму всех элементов массива. Если таких элементов несколько, то они все должны замениться.
219
314
Ответы на вопрос:
Код (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
Цена розница =цена в долларах*курс
Цена опт = цена розница -цена розница*17%
Примечание
Курс с долларами $A$1
Цена опт может превратится в проценты. Надо будет поменять формат общий
Объяснение:
Популярно: Информатика
-
molodoy302.12.2022 18:49
-
alenali2016p0doga08.02.2022 17:52
-
likapak131.10.2021 09:14
-
artemsavenkov19.04.2020 10:47
-
Пеперони22823.10.2020 02:33
-
Inna2104200221.09.2020 16:17
-
КИРА2801200726.11.2022 20:08
-
star66612.11.2020 15:49
-
Vasilisa0070028.06.2020 07:14
-
slusarenkolena04.08.2020 06:20