将a数组中第一个元素一道最后数组末尾，其余数据于此往前平移一个位置（pascal）

将a数组中第一个元素一道最后数组末尾，其余数据于此往前平移一个位置（pascal）

var a:array[1..100]of integer;
x,n,i:integer;
begin
readln(n);//读入n个数
for i:=1 to n do
read(a[i]);
x:=a[1];//取出第一个数
for i:=2 to n do
a[i-1]:=a[i];//依次向前移动一位
a[i]:=x;
for i:=1 to n do
write(a[i],' ');//输出
end.

var
i,n,temp:longint;
a:array[1..10000]of longint;
begin
readln(n);
for i:=1 to n do read(a[i])//读入
temp:=a[1];
for i:=1 to n-1 do a[i]:=a[i+1];
a[n]:=temp;
for i:=1 to n do writeln(a[i]) //输出
end.

program tt;
type a:=array[1..100] of integer;
var aa:a; x,n,i:integer;
begin
readln(n);｛读入数组的个数｝
for i:=1 to n do read aa[i];｛读入各个元素｝
x:=aa[1];｛抽取第一个元素，保存在临时单元X中｝
for i:=2 to n do
aa[i-1]:=aa[i];｛将后一个元素往前移｝
aa[n]:=x;｛把第一个元素移到最后｝
writeln;
for i:=1 to n do write(aa[i]);｛输出各个元素｝
end.