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(макс + " " + ном);
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(макс + " " + ном);