Дан одномерный массив - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

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

Решение задачи: «Дан одномерный массив»

textual
Листинг программы
begin
  var a := ArrRandom(10, -10, 10); a.Println;
  swap(a[a.IndexMax], a[a.Length - 1]); a.Println;
end.

Объяснение кода листинга программы

В данном коде:

  1. Переменная a инициализируется результатом работы функции ArrRandom(10, -10, 10).
  2. Функция ArrRandom(10, -10, 10) заполняет массив a случайными целыми числами от -10 до 10, длиной 10 элементов.
  3. Массив a выводится на экран с помощью функции Println.
  4. Функция swap(a[a.IndexMax], a[a.Length - 1]) меняет местами последний элемент массива a с элементом, имеющим максимальный индекс.
  5. Массив a выводится на экран с помощью функции Println.

Оцени полезность:

13   голосов , оценка 4.231 из 5
Похожие ответы