Question

Составить программу для замены местами двух крайних элементов массива q, состоящего из 22 элементов. Массив q ввести с клавиатуры.

Answer 1

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var q:=ReadArrInteger('Введите 22 целых числа:',22);
  Swap(q[0],q[21]); q.Println
end.

Пример
Введите 22 целых числа: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
22 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 1