Question

Задан одномерный массив А(N) (N<=90). Поменять местами
максимальный и минимальный элементы массива A(N). Преобразованный
массив вывести на экран.(паскаль)

Answer 1

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.

Пример работы на рисунке.