Дан массив ,заданный датчиком случайных чисел в интервале [-60; 140]. определить, максимальный и минимальный элемент массива.

// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
begin
  var n:=ReadInteger('Число элементов массива');
  var a:=ArrRandom(n,-60,140); a.Println(', ');
  WritelnFormat('max={0}, min={1}',a.Max,a.Min)
end.

Тестовое решение:
Число элементов массива 10
-26, 134, 124, 103, 25, 31, 41, -31, 57, 46
max=134, min=-31