UC知道我的PASCAL程序运行出错咋办@@!!!!
来源：百度知道 编辑：UC知道 时间：2024/05/09 18:37:02
program sd;
type
shit=array[1..99] of real;
var
N,x,a,b:longint; i,o:text; s:shit;
begin
assign(i,'input6.txt');
assign(o,'output6,txt');
reset(i);
rewrite(o);
readln(i,N,s[1],s[2],s[3],s[4],s[5],s[6],s[7],s[8],s[9],s[10],s[11],s[12],s[13],s[14],s[15],s[16],s[17],s[18],s[19],s[20],s[21],s[22],s[23],s[24],s[25],s[26],s[27],s[28],s[29],s[30],s[31],s[32],s[33],s[34],s[35],s[36],s[37],s[38],s[39],s[40],s[41],s[42],s[43],s[44],s[45],s[46],s[47],s[48],s[49],s[50],s[51],s[52],s[53],s[54],s[55],s[56],s[57],s[58],s[59],s[60],s[61],s[62],s[63],s[64],s[65],s[66],s[67],s[68],s[69],s[70],s[71],s[72],s[73],s[74],s[75],s[76],s[77],s[78],s[79],s[80],s[81],s[82],s[83],s[84],s[85],s[86],s[87],s[88],s[89],s[90],s[91],s[92],s[93],s[94],s[95],s[96],s[97],s[98],s[99]);
a:=0;
for x:=1 to 99 do
begin
a:=a+s[x];
end;
b:=a/N;
for x:=1 to 99 do
begin
if (s[x]>n) then write(o,s[x],' ');
e
type
shit=array[1..99] of real;
var
N,x,a,b:longint; i,o:text; s:shit;
begin
assign(i,'input6.txt');
assign(o,'output6,txt');
reset(i);
rewrite(o);
readln(i,N,s[1],s[2],s[3],s[4],s[5],s[6],s[7],s[8],s[9],s[10],s[11],s[12],s[13],s[14],s[15],s[16],s[17],s[18],s[19],s[20],s[21],s[22],s[23],s[24],s[25],s[26],s[27],s[28],s[29],s[30],s[31],s[32],s[33],s[34],s[35],s[36],s[37],s[38],s[39],s[40],s[41],s[42],s[43],s[44],s[45],s[46],s[47],s[48],s[49],s[50],s[51],s[52],s[53],s[54],s[55],s[56],s[57],s[58],s[59],s[60],s[61],s[62],s[63],s[64],s[65],s[66],s[67],s[68],s[69],s[70],s[71],s[72],s[73],s[74],s[75],s[76],s[77],s[78],s[79],s[80],s[81],s[82],s[83],s[84],s[85],s[86],s[87],s[88],s[89],s[90],s[91],s[92],s[93],s[94],s[95],s[96],s[97],s[98],s[99]);
a:=0;
for x:=1 to 99 do
begin
a:=a+s[x];
end;
b:=a/N;
for x:=1 to 99 do
begin
if (s[x]>n) then write(o,s[x],' ');
e
可以关闭编译的强制语法检查。
实在不行，可以改成read(i);read(n);
后面的整一for循环，最后读一个空行readln();
折成两句写啊
好像Pascal里语句最长255个字符把
好久不用Pascal了，记不清了