PASCAL：用一维数组从键盘输入10个数,要求按输入时相反的顺序输出这10个数;

Question

var a: array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i])；
for i:=10 downto 1 do
write(a[i]:5);
end.
上面是正确的答案；
下面这样为什么不行？
var a:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
a[i]:=a[11-i];
write(a[i]:4);
end.
谢谢了！
为什么这样只输出一个数？

Answer 1

你这样只输出了一个数啊！
你没加 begin ... end;
按你的思路，应该这样做：
var a:array[1..10]of integer;
b:array[1..10]of integer;
i:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do b[i]=a[11-i];
for i:=1 to 10 do write(b[i]:4);
writeln;
end.
这样就可以了。
谢谢。

参考资料：自己

Answer 2

a[i]:=a[11-i];
这句话错误了

你的意思是给这个数组重新赋值是把？
重新复制要不用个临时对象进行数据交换
要不交换地址
而且只能交换一半（后面重复了）

Answer 3

var a:array[1..10]of integer;
i:integer;
begin //开始
for i:=1 to 10 do
read(a[i]); //读入0，1，2，3，4，5，6，7，8，9；这时，
i=10
a[i]:=a[11-i]; //a[10]:=a[11-10];则a[10]=0;
write(a[i]:4); //由于i始终没变，是10；就只输出了0
end.

Answer 4

当你执行a[i]:=a[11-i]时，就有数据被覆盖了。
比如：a[1]:=a[11-1]，那么a[1]中原来存的数就丢失了