В одномерном массиве из n частей , найти максимальное значение элемента

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

javascript:var массив = [], n = prompt("n:"); for (let сч = 0; сч lt; n; сч++) массив.push(prompt()); var макс, ном; массив.forEach(function (зн, сч) if (сч == 0) макс = зн; ном = сч; else if (зн gt; макс) макс = зн; ном = сч; ); alert(макс + " " + ном);