Question

Составьте программу, которая заполняет массив a [1..10] случайными целыми числами в диапозоне от 1 до 100, затем меняет местами максимальный и минимальный элементы. Выведите на экран исходный и полученный массивы.

Answer 1

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
  var a:=ArrRandom(10,1,100); a.Println;
  var imax:=a.IndexMax;
  var imin:=a.IndexMin;
  Swap(a[imax],a[imin]); a.Println
end.

Пример
65 47 11 68 51 83 90 73 4 43
65 47 11 68 51 83 4 73 90 43