Pascal. Задача 4-13

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

Решение

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[1];
  for i := 2 to N do
    A[i - 1] := A[i];
  A[N] := temp;
  for i := 1 to N do write(A[i]);
  writeln;
end.

◄▲►