10. дана последовательность из n целых чисел. - вопрос №823128110 от rageworker 08.01.2023 01:59

Question

Информатика: 10. дана последовательность из n целых чисел. найти сумму минимального и максимального элементов в этой последовательности

rageworker · Answer

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Искомая сумма равна ',a.Min+a.Max)
end.

Пример
n= 13
-49 -32 14 -47 9 -23 39 -16 -44 2 -48 -48 -27
Искомая сумма равна -10