10. дана последовательность из n целых чисел. найти - вопрос №108231681 от pustovoytenko1 14.02.2021 11:30

Question

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

pustovoytenko1 · 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