1) 4
2) 0
3) 9,7
4) 3,14
5) 0,45
6) 0,5
7) 6
8) 6
9) 7
10) 49
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
Writeln('Max=',ArrRandom(15,1,50).Println.Max)
end.
<u><em>Тестовое решение:</em></u>
45 28 10 26 15 5 49 39 40 50 19 12 37 35 40
Max=50
<span>Типографические символоы </span>