Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

// 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