Question

Pascal Runtime Error 问题 如何解决

评测平台是NOI的openjudge，无故出现运行时错误问题。如果是本人代码有误请各位大神修改。
sysutils系统单元是我用来测时间的，评测时已经处理为注释。但是上一次提交时删除了注释内容依然runtime error

这一段代码也出现了runtime error问题，但是发现评测总记录里有其他人用pascal语言提交其他题目已通过。program project1;var a:array[1..100]of longint; n,i,max,min:longint;begin fillchar(max,sizeof(max),0); readln(n); max:=a[1]; min:=a[1]; for i:=1 to n do read(a[i]); for i:=2 to n do if a[i]>max then max:=a[i]; for i:=2 to n do if a[i]<min then max:=a[i]; writeln(max-min);readln;readln;end.

然而提交了6174号题目，已完美通过。

Answer 1

解决办法： 1、开始--运行--输入cmd 2、输入 cd %windir%\system32 （进入windows安装目录的system32文件夹） 3、输入 Regsvr32 Msxml3.dll 原因分析： 访问了恶意网站或中木马所致，这些木马伪装成系统驱动程序随机启动，常驻内存。在设备管理.

Answer 2

将双斜杠的注释改为用大括号｛｝注释。
（你的这个平台好像不支持双斜杠注释 ！ ）

追问

不是这问题。如图所示

追答

var
a:array[1..100] of longint;
n,i,sum:longint;
ave:real;
begin
fillchar(a,sizeof(sum),0);
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do sum:=sum+a[i];
ave:=sum/n;
writeln(sum,' ',ave:0:5);
end.

追问

然并卵

追答

var
    a:array[1..100] of longint;
    n,i,sum:longint;
    ave:real;
begin
    for i:=1 to 100 do a[i]:=0;
    readln(n);
    for i:=1 to n do read(a[i]);
sum:=0;
    for i:=1 to n do sum:=sum+a[i];
    ave:=sum/n;
    writeln(sum,' ',ave:0:5);
end.

Answer 3

数组开小了吧