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

Предыдущий
вопрос Следующий
вопрос

Вот пример программы на PascalABC, которая выполняет циклический сдвиг массива вправо на 3 элемента:

program ShiftArray;
const
N = 5;
var
arr: array[1..N] of Integer;
i, tmp: Integer;
begin
Randomize;
writeln('Исходный массив:');
for i := 1 to N do
begin
arr[i] := Random(100);
write(arr[i], ' ');
end;
writeln;
// Сдвигаем массив вправо на 3 элемента
for i := 1 to 3 do
begin
tmp := arr[N];
for i := N downto 2 do
arr[i] := arr[i-1];
arr[1] := tmp;
end;
writeln('Массив после циклического сдвига вправо:');
for i := 1 to N do
write(arr[i], ' ');
end.

Эта программа сначала инициализирует массив случайными числами, затем выполняет циклический сдвиг вправо на 3 элемента и выводит полученный массив на экран.