Question

Напишите программу для выполнения циклического сдвига массива вправо на 3 элемент.В PascalABC. Заранее благодарю.

Answer 1

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

begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,-50,50); a.Println;
  a:=(a[n-3:]+a[:n-3]).ToArray; a.Println
end.

Пример
n= 15
1 -10 49 1 28 18 -44 -46 -23 36 36 -49 -46 -49 -21
-46 -49 -21 1 -10 49 1 28 18 -44 -46 -23 36 36 -49