PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
var i := a.IndexMax;
$'a[{i+1}]={a[i]}'.Println
end.
Пример
n= 17
7 42 19 21 47 -25 -2 -12 -37 2 43 46 3 -39 -24 6 -21
a[5]=47