不是VIP会员,不能显示答案

题目解答

题目:
program test02;
var
i,j,k,t:integer;
a:array[1..7] of integer;
begin
for i:=1 to 7 do a[i]:=0;
for i:=1 to 4 do a[i]:=i;
t:=a[7];
for i:=7 downto 2 do a[i]:=a[i-1];
a[1]:=t;
for i:=1 to 7 do write(a[i]);
end.
输出:0123400
考点:
分析:
解答:
评论:
老师: