• Заменить нулями элементы массива, которые расположены между первым минимальным и последним максимальным элементами массива. Паскаль

Ответы 1

  • //PascalABC.NET 3.1 сборка 1200begin    var n := ReadInteger('n = ');    var a := ArrRandom(n, -50, 50);    a.Println;    var mini := a.IndexMin();    var maxi := a.Max();    maxi := a.FindLastIndex(x -> x = maxi); //ищем последний максимум, если их несколько        Println(mini, maxi);    if maxi < mini then Swap(mini, maxi);        for var i := mini + 1 to maxi - 1 do        a[i] := 0;    a.Println;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years