// PascalABC.NET
begin
var n := ReadInteger('N =');
var a := ArrRandom(n, -99, 99);
a.Println;
Print(a.IndexMax + 1) // если индексы от 0, то + 1 не писать
end.
