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

Ответы 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.Printlnend.Примерn= 1556 11 28 52 25 86 71 16 58 29 80 52 90 36 1656 101 28 52 25 86 71 16 58 29 80 52 101 36 16
    • Автор:

      max13
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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