Задание. Задан массив, его характеристики заданы отдельно. Необходимо найти максимальное или минимальное значение элементов массива и сделать перестановку.значения из таблицы:1.Количество элементов в массиве 2.Интервал случайного числа 3.Найти Перестановка​

                         PascalABC.NET                            

!Без каких-либо дополнительных переменных

• begin
• var a := ArrRandom(20, 10, 40);
• Println(a);
• a[a.IndexMax] += a[0];
• a[0] := a.Max - a[0];
• a[a.IndexMax] -= a[0];
• Println(a);
• end.

!Тут уже проще переменную добавить

• var max: integer;
• begin
• var a := ArrRandom(20, 10, 40);
• Println(a);
• max := a.Max;
• a.Replace(a.Max, a[0]);
• a[0] := max;
• Println(a);
• end.

(20, 10, 40) - количество, интервалОТ, интервалДО.

Max(IndexMax) можно поменять на Min(IndexMin).

Ну а если первый = a[0], последний = a[количество-1].

1. Если нужны другие данные:
   (20, 10, 40) - количество, интервалОТ, интервалДО.
   Max(IndexMax) можно поменять на Min(IndexMin).
   Ну а если первый = a[0], последний = a[количество-1].