ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ ** ЯЗЫКЕ ПАСКАЛЬ Уровень A. Заполнить массив случайными...

Question

ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ

Уровень A. Заполнить массив случайными числами и выполнить циклический сдвиг элементов массива вправо на 1 элемент.
Пример:
Массив:
1 2 3 4 5 6
Результат:
6 1 2 3 4 5

Answer 1

var
a: array [1..6] of integer;
i,n,k:integer;
  begin
     writeln('Массив:');
     for i:=1 to 6 do
     begin
       a[i]:= random(15)+2;
       write(a[i],' ');
     end;
     writeln;
     n:=6;
        k:=a[1];
        for i:=1 to n-1 do
         begin
         a[i]:=a[i+1];
         end;
           a[n]:=k;
        writeln('Результат:');
        for i:=1 to n do
        write(a[i],' ');  end.