Question

Дан целочисленный массив . Найти индекс максимального элемента​.

Answer 1

// PascalABC.NET

begin

 var n := ReadInteger('N =');

 var a := ArrRandom(n, -99, 99);

 a.Println;

 Print(a.IndexMax + 1)  // если индексы от 0, то + 1 не писать

end.