查人人中国名人网杭州客运网上订票官网:PASCAL的问题
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/02 13:36:12
program jj;
var
i,max,maxi:integer;
a,b,c:array[1..10]of integer;
begin
for i:=1 to 7 do
begin
readln(a[i],b[i]);
c[i]:=a[i]+b[i];
end;{for}
max:=0;
maxi:=0;
for i:=1 to 7 do
if c[i]>max then
begin max:=c[i]; maxi:=i;end;{then}
if max<=8
then writeln('0');
else writeln(maxi);
end.
这个程序帮我看一下,那里错了
var
i,max,maxi:integer;
a,b,c:array[1..10]of integer;
begin
for i:=1 to 7 do
begin
readln(a[i],b[i]);
c[i]:=a[i]+b[i];
end;{for}
max:=0;
maxi:=0;
for i:=1 to 7 do
if c[i]>max then
begin max:=c[i]; maxi:=i;end;{then}
if max<=8
then writeln('0');
else writeln(maxi);
end.
这个程序帮我看一下,那里错了
if max<=8
then writeln('0'){此处去掉一个分号}
else writeln(maxi);
可能是 readln(a[i],b[i]);
c[i]:=a[i]+b[i];
你运行是pascal是怎么提示的？
还有for i:=1 to 7 do 后面得加begin
then writeln('0')后面不要加分号
语法错误有一个
then writeln('0')后面不要加分号
逻辑错误不知道有没有。