Задан массив, найти значения индексов минимальых и максимальных чисел массива. Найти сумму максимального и минимального элемента массива. Замените минимальные и максимальные элементы найденной сумой. Вывести полученный массив н...
Задан массив, найти значения индексов минимальых и максимальных чисел массива.
Найти сумму максимального и минимального элемента массива.
Замените минимальные и максимальные элементы найденной сумой.
Вывести полученный массив на экран.
Гость
Ответ(ы) на вопрос:
Гость// 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.Println
end.
Пример
n= 15
56 11 28 52 25 86 71 16 58 29 80 52 90 36 16
56 101 28 52 25 86 71 16 58 29 80 52 101 36 16
Не нашли ответ?
Похожие вопросы