一维数组长度为20，要求从第一位开始将数组元素依次后移一位，最后一位数组元素移值数组第一位（用PASCAL

var a:array[1..21] of integer;
i:integer;

begin
for i:=1 to 20 do read(a[i]);
for i:=21 downto 2 do a[i]:=a[i-1];
a[1]:=a[21];
write(a[1]);
for i:=2 to 20 do write(' ',a[i]);
writeln;
end.

这个程序我check过了，保证没问题。如果要加文件或输入输出有特别要求（如输出行末尾的空格要求）的话msn:zhangfan.joyce@hotmail.com

楼主啊,以上两人程序
一楼:优点是过程易懂
二楼:数据空间优化
你自己选一个好的把