begin
var n := ReadInteger;
var a := ArrRandom(n, -99, 99);
a.Println;
var (imax, imin) := (a.IndexMax, a.IndexMin);
Swap(a[imax], a[imin]);
end.
Пример работы на рисунке.
begin
var n := ReadInteger;
var a := ArrRandom(n, -99, 99);
a.Println;
var (imax, imin) := (a.IndexMax, a.IndexMin);
Swap(a[imax], a[imin]);
a.Println;
end.
Пример работы на рисунке.