您所在位置：主题：[讨论]PKU1004超时？
沙漠笨鸟
[专家分：220] 发布于 2006-08-12 23:28:00
PKU1004超时？
我的程序如下：
Program PKU1004;
Var
i:integer;
total,a,ans:real;
Begin
for i:=1 to 12 do begin
readln(a);
total:=total+a;
end;
ans:=total/12;
write('$',ans:0:2);
end.
为什么总是 waiting 呢？
应该如何改进程序？
谢谢！！！
我的程序如下：
Program PKU1004;
Var
i:integer;
total,a,ans:real;
Begin
for i:=1 to 12 do begin
readln(a);
total:=total+a;
end;
ans:=total/12;
write('$',ans:0:2);
end.
为什么总是 waiting 呢？
应该如何改进程序？
谢谢！！！