В векторе У (m) поменять местами максимальный и минимальный элементы. Помогите мне...

Question

В векторе У (m) поменять местами максимальный и минимальный элементы. Помогите мне пожалуйста. Не в клавиатуру а просто.

Answer 1

// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
begin
  var n:=ReadInteger('n=');
  var y:=ArrRandom(n,1,100); y.Println(', ');
  var imax:=0;
  var imin:=0;
  for var i:=1 to n-1 do
    if y[i]>y[imax] then imax:=i
    else
      if y[i]  Swap(y[imax],y[imin]);
  y.Println(', ')
end.

Тестовое решение:
n= 12
35, 81, 48, 34, 51, 44, 97, 56, 94, 51, 11, 31
35, 81, 48, 34, 51, 44, 11, 56, 94, 51, 97, 31