Дан одномерный массив - PascalABC.NET
Формулировка задачи:
Дан одномерный массив. Поменяйте в нем местами максимальный элемент с последним из элементов исходного массива и обработанный массив выведите на экран.
Решение задачи: «Дан одномерный массив»
textual
Листинг программы
begin var a := ArrRandom(10, -10, 10); a.Println; swap(a[a.IndexMax], a[a.Length - 1]); a.Println; end.
Объяснение кода листинга программы
В данном коде:
- Переменная
a
инициализируется результатом работы функции ArrRandom(10, -10, 10). - Функция ArrRandom(10, -10, 10) заполняет массив
a
случайными целыми числами от -10 до 10, длиной 10 элементов. - Массив
a
выводится на экран с помощью функции Println. - Функция swap(a[a.IndexMax], a[a.Length - 1]) меняет местами последний элемент массива
a
с элементом, имеющим максимальный индекс. - Массив
a
выводится на экран с помощью функции Println.