Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 0 до 10, затем первый элемент меняет местами с максимальным элементом. Выведите на экран исходный и полученный массивы.
Составьте программу, которая заполняет массив а[1..10] случайными целыми числами в диапозоне от 0 до 10, затем первый элемент меняет местами с максимальным элементом. Выведите на экран исходный и полученный массивы.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(10,1,10); a.Println;
Swap(a[0],a[a.IndexMax]); a.Println
end.
Пример
5 3 4 9 7 5 10 9 8 3
10 3 4 9 7 5 5 9 8 3
Не нашли ответ?
Похожие вопросы