Question

Язык Паскаль:
Даю 50 баллов

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

Answer 1

##

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