Напишите программу для выполнения циклического сдвига - вопрос №87951673 от DimanGuy32 22.09.2020 12:33

Question

Информатика: Напишите программу для выполнения циклического сдвига массива вправо на 3 элемент.в pascalabc. заранее .

DimanGuy32 · Answer

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