Паскаль!!! Сформировать одномерный целочисленный массив A размерностью N. Запросить у...

Question

Паскаль!!!
Сформировать одномерный целочисленный массив A размерностью N.
Запросить у пользователя индекс k и поменять местами элемент A[k-1] и
A[k+1]. Вывести на экран исходный и итоговый массивы. Если k = 1 или N –
вывести сообщение об ошибке.

Answer 1

// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-10,15); a.Println;
  var k:=ReadInteger('k=');
  if k in [2..n-1] then begin
    Swap(a[k-2],a[k]); a.Println
    end
  else Writeln('Неверное k')
end.

Тестовое решение:
n= 10
2 -10 10 -8 7 -4 9 2 -6 0
k= 4
2 -10 7 -8 10 -4 9 2 -6 0