Question

Составьте программу, которая формирует массив из 8 случайных целых чисел от 1 до 20 и меняет местами значения 2-го и последнего элементов массива

Answer 1

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(8, 1, 20);

 a.Println;

 Swap(a[1], a[a.High]);

 a.Println

end.

Пример

14 19 18 5 2 8 1 14

14 14 18 5 2 8 1 19