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

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  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 17
min+max=12