Напишите программу для Паскаля для перестановки максимального и минимального по значению...

Question

Напишите программу для Паскаля для перестановки максимального и минимального по значению элементов массива. Значения длины массива вводятся с клавиатуры

Answer 1

// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  Swap(a[a.IndexMin],a[a.IndexMax]); a.Println
end.

Пример
n=13
21 -9 1 3 2 -31 24 -14 44 49 -30 -45 -1
21 -9 1 3 2 -31 24 -14 44 -45 -30 49 -1