помогите написать программу в паскале В массиве А (15) целых чисел поменять местами 5 и 13 элементы. Вывести начальный и изменены массивы в строку через два пробела.

Вопрос школьника по предмету Информатика

помогите написать программу в паскале
В массиве А (15) целых чисел поменять местами 5 и 13 элементы. Вывести начальный и изменены массивы в строку через два пробела.

Ответ учителя по предмету Информатика

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017

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

begin

  var a:=ArrRandom(15,-50,50); a.Println(‘  ‘);

  Swap(a[4],a[12]); // индексы от нуля

  a.Println(‘  ‘)

end.

Пример

40  28  18  1  35  -50  13  17  40  7  -48  46  -12  -9  50

40  28  18  1  -12  -50  13  17  40  7  -48  46  35  -9  50