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

// 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