Язык Паскаль: Найти в массиве максимальный и минимальный - вопрос №17900415 от sashasas12365 01.08.2022 05:55

Question

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

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