В массиве из 15 целых чисел найти сумму минимального и максимального элементов

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016begin  var a:=ArrRandom(15,-10,20); a.Println;  Writeln('min+max=',a.Min+a.Max)end.Тестовое решение:6 0 6 16 5 20 -5 -3 16 15 -4 8 -7 -8 17min+max=12