Напишите программу для выполнения циклического сдвига - вопрос №87942653 от danik174 25.11.2022 18:52

Question

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

danik174 · 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