// PascalABC.NET
begin
var a := ArrRandom(10, -7, 15);
var max := a.Println.Max;
a.Count(p -> p = max).Print
end.
