Заполнить массив из N элементов и поместить его последний элемент на первое место. Остальные элементы массива должны сдвинуться вправо на 1 элемент.

Program hehe;

uses crt;

const n=9;

var c,i:integer; a:array[0..n] of integer;

begin

writeln('введите исходный массив');

for i:=0 to n do  

begin

   write('a[',i,']=');  readln(a[i]);  

end;  

writeln('вывод исходного массива');

for i:=0 to n do  

    write(a[i],' ');  

writeln;

c:=a[n];  

for i:=n-1   downto  0 do    

a[i+1]:=a[i];

a[0]:=c;

writeln('вывод  результативного  массива');

for i:=0 to n do write(a[i],' ');  

readln

end.

Объяснение: