Помогите с задачей ** Pascal. массивы. Дана последовательность действительных чисел....

Question

Помогите с задачей на Pascal. массивы. Дана последовательность действительных чисел. Поменяйте местами первый наибольший элемент с последним наименьшим элементом

Answer 1

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

begin
  var a:=SeqRandom(ReadInteger('n='),-99,99).Select(t->t/10).ToArray;
  a.Println;
  var (imax,imin):=(a.IndexMax,a.LastIndexMin);
  Swap(a[imin],a[imax]); a.Println
end.

Пример
n= 15
-4.3 -5.6 7.2 -5.3 -7.7 9.3 1.4 0.3 -4.7 6.3 5.7 7.5 -8.6 6.9 -2.5
-4.3 -5.6 7.2 -5.3 -7.7 -8.6 1.4 0.3 -4.7 6.3 5.7 7.5 9.3 6.9 -2.5