Впроизвольном массиве а(15) на интервале (-50; 50), найти наибольший элемент.

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln('max=',ArrRandom(15,-50,50).Println.Max)
end.

Тестовое решение:
12 -3 -6 50 -48 16 14 4 24 -9 42 7 20 45 46
max=50