Задан массив, найти значения индексов минимальых и максимальных чисел массива. Найти...

Question

Задан массив, найти значения индексов минимальых и максимальных чисел массива.
Найти сумму максимального и минимального элемента массива.
Замените минимальные и максимальные элементы найденной сумой.
Вывести полученный массив на экран.

Answer 1

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

begin
  var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
  var imax:=a.IndexMax;
  var imin:=a.IndexMin;
  var v:=a[imax]+a[imin];
  (a[imax],a[imin]):=(v,v);
  a.Println
end.

Пример
n= 15
56 11 28 52 25 86 71 16 58 29 80 52 90 36 16
56 101 28 52 25 86 71 16 58 29 80 52 101 36 16