дан одномерный массив целых чисел. найти сумму максимального и минимального элемента. программа паскаль. ! 40

// PascalABC.NET 3.4.2, сборка 1790 от 15.09.2018

// Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 Println('Сумма максимального и минимального равна', a.Min + a.Max)

end.