begin
var a := ReadArrInteger(10);
var max := a.Max;
a.IndexesOf(t -> t = max).Select(t -> t + 1).Println
end.
begin
var a := ReadArrInteger(10);
var max := a.Max;
a.IndexesOf(t -> t = max).Select(t -> t + 1).Println
end.
5 6 1 2 1 -6 6 1 -6 62 7 10