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

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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт