Предмет: Информатика,
автор: Аноним
Задан одномерный массив А(N) (N<=90). Поменять местами
максимальный и минимальный элементы массива A(N). Преобразованный
массив вывести на экран.(паскаль)
Ответы
Автор ответа:
1
begin
var n := ReadInteger;
var a := ArrRandom(n, -99, 99);
a.Println;
var (imax, imin) := (a.IndexMax, a.IndexMin);
Swap(a[imax], a[imin]);
a.Println;
end.
Пример работы на рисунке.
Приложения:
Интересные вопросы