Pascal. Задача 4-14

Произвести циклический сдвиг массива на одну позицию вправо (т.е. предпоследний элемент переставить на последнее место и т.д., а последний элемент - на первое). 

Решение

Const
  N = 10;
var
  i, temp : integer;
  A : array[1..N] of integer;
begin
  for i := 1 to N do begin
      write('Введите A[', i, ']: ');
      read(A[i]);
    end;
  temp := A[N];
  for i := N downto 2 do 
    A[i] := A[i - 1];
  A[1] := temp;
  for i := 1 to N do write(A[i]);
  writeln;
end.