Question

В одномерный массив ввести N произвольных чисел. Задан индекс К одного из элементов массива. Требуется записать в обратном порядке все элементы, стоящие слева и справа от заданного К. Вывести на экран в строку новый массив.

Answer 1

PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadlnInteger('N=');
  var a:=ReadArrInteger(n);
  var k:=ReadInteger('K=')-1;
  a:=(a[:k].Reverse+a[k:k+1]+a[k+1:].Reverse).ToArray;
  a.Println
end.

Пример
N= 8
13 62 0 -35 18 15 232 43
K= 4
0 62 13 -35 43 232 15 18