Напишите программу для исполненья повторяющегося сдвига массива на право на 3 элемент.В

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

Задать свой вопрос
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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт