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

Question

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

Answer 1

// 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