expected but "ELSE" found

zeng72002022-10-04 11:39:541条回答

expected but "ELSE" found
program ex111;
var
a:array[1..100] of integer;
n,i,ans,len,tmp,beg:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
tmp:=0;
ans:=0;
len:=0;
beg:=0;
for i:=1 to n do
begin
if tmp+a[i]>ans then
begin
ans:=tmp+a[i];
len:=i-beg;
end;
else if (tmp+a[i]=ans) and (i-beg>len) then
len:=i-beg
if tmp+a[i]

已提交,审核后显示!提交回复

共1条回复
6808806 共回答了20个问题 | 采纳率90%
主要是else前面的end后面应该没有;号.program ex111;vara:array[1..100] of integer;n,i,ans,len,tmp,beg:integer;beginread(n);for i:=1 to n doread(a[i]);tmp:=0;ans:=0;len:=0;beg:=0;for i:=1 to n dobeginif t...
1年前

相关推荐