Варфоломей
6 год назад
Составьте программу, которая заполняет массив a [1..10] случайными целыми числами в диапозоне от 1 до 100, затем меняет местами максимальный и минимальный элементы. Выведите на экран исходный и полученный массивы.
ОТВЕТЫ
Ираклиевич
Jul 21, 2019
// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(10,1,100); a.Println;
var imax:=a.IndexMax;
var imin:=a.IndexMin;
Swap(a[imax],a[imin]); a.Println
end.
Пример
65 47 11 68 51 83 90 73 4 43
65 47 11 68 51 83 4 73 90 43
// Внимание! Если программа не работает, обновите её версию!
begin
var a:=ArrRandom(10,1,100); a.Println;
var imax:=a.IndexMax;
var imin:=a.IndexMin;
Swap(a[imax],a[imin]); a.Println
end.
Пример
65 47 11 68 51 83 90 73 4 43
65 47 11 68 51 83 4 73 90 43
81
Смежные вопросы:
