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

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.

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