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

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; сч < n; сч++) массив.push(prompt()); var макс, ном; массив.forEach(function (зн, сч) { if (сч == 0) { макс = зн; ном = сч; } else if (зн > макс) { макс = зн; ном = сч; } }); alert(макс + " " + ном);