UC知道请翻译一下一道简单的PASCAL程序
来源：百度知道 编辑：UC知道 时间：2024/06/21 20:20:00
program p1;
var a:array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=10 downto 1 do
write(a[i],' ');
writeln;
s:=0;
for i:=1 to 10 do
s:=s+a[i];
writeln('s=',s);
end.
var a:array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=10 downto 1 do
write(a[i],' ');
writeln;
s:=0;
for i:=1 to 10 do
s:=s+a[i];
writeln('s=',s);
end.
program p1;
var a:array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do
read(a[i]); {读入10个整数}
for i:=10 downto 1 do
write(a[i],' '); {按相反顺序打印这10个数}
writeln;
s:=0;
for i:=1 to 10 do
s:=s+a[i]; {求这10个数的和｝
writeln('s=',s); {打印所求的和}
end.