Язык Паскаль: Найти в массиве максимальный и минимальный - вопрос №17899738 от nikitav109 01.01.2021 18:41

Question

Информатика: Язык Паскаль: Найти в массиве максимальный и минимальный элемент и поменять их местами. Массив заполнить случайными числами от -500 до 500, количество элементов вводится с клавиатуры

nikitav109 · Answer

##var n := ReadInteger;var a := ArrRandom(n, -500, 500);a.Println;var (imax, imin) := (a.IndexMax, a.IndexMin);Swap(a[imax], a[imin]);a.Print...