profile
Опубликовано 5 лет назад по предмету Информатика от Klepa75

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

  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]<y[imin] then imin:=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