program ed;</br>
const maxn=10000;</br>
type myarray=array[1..maxn] of integer;</br>
var a,x: myarray;</br>
procedure init;</br>
var i,n:integer;</br>
begin
readln(n);</br>
for i:=1 to n do readln(x[i]);</br>
end;</br>
function indexelm(x:myarray): integer;</br>
var i,j,n:integer;</br>
sl,sr:integer;</br>
Begin
if n>=3 then begin
i:=1;</br> j:=n;</br> sl:=x[i];</br> sr:=x[i];</br>
while i+2<>j do begin
if sl<sr then begin
inc(i);</br>
sl:=sl+x[i];</br>
end
else begin
dec(j);</br>
sr:=sr+x[j];</br>
end;</br>
indexelm:=i+1;</br>
end;</br> end
else
indexelm:=1;</br>
end;</br>
Begin
init(a);</br>
writeln(indexelm(a));</br>
End.