Язык Паскаль: Найти в массиве максимальный и минимальный - вопрос №17899513 от darusascop1415 27.02.2020 16:27

Question

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

darusascop1415 · 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...