Заполнить массив из 10 элементов случайными числами в интервале [0...10] и выполнить...

Question

Заполнить массив из 10 элементов случайными числами в интервале [0...10] и выполнить циклический сдвиг массива ВПРАВО.
Формат ввода и вывода данных:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
Результат:
0 4 -5 3 10 -4 -6 8 -10 1

Answer 1

Const
  n = 10;

var
  i, s: integer;
  a: array[1..n] of integer;

begin
  Writeln('Введите элементы массива через пробел');
  for i := 1 to n do Read(a[i]);
  s := a[n];
  for i := n downto 2 do a[i] := a[i - 1];
  a[1] := s;
  for i := 1 to n do Write(a[i]:4);
end.

Тестовое решение:
Введите элементы массива через пробел
4 -5 3 10 -4 -6 8 -10 1 0
   0   4  -5   3  10  -4  -6   8 -10   1