language: Pascal (gpc) (gpc 20070904)
date: 107 days 13 hours ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

program px1(input,output);
var
 an : array [1..100000] of integer;
 n, i,j,k,maxj,sum,s,temp1,temp2 : integer;
begin
readln(n);
for i:=1 to n do read(an[i]); readln;
maxj:=0;
for i:=1 to n-2 do
begin
 temp1:=an[i];temp2:=i+1; s:=0;
 for j:=i+2 to n do
 begin
   sum:=temp1+an[j];
   while (k<j) and (s<=sum) do
    begin
     s:=s+an[k];k:=k+1
    end;
  if s=sum then maxj:=j
 end
end;
writeln(maxj)
end.