program lol( input, output) ;
var a: array [ 1 .. 1000000 ] of integer ; var b: array [ 1 .. 1000000 ] of integer ; var c: array [ 1 .. 1000000 ] of integer ; var max2, max1, v, sum1, sum, max, d, f, h, l, j, n, x, i: integer ;
begin
readln ( n) ;
for i: = 1 to n do
begin
read ( x) ;
a[ i] : = x;
if ( i= 1 ) then
begin
b[ i] : = a[ i] ;
sum1: = a[ i]
end
else
begin
sum1: = sum1+ a[ i] ;
b[ i] : = sum1
end
end ;
max1: = b[ 1 ] ;
l: = 1
for j: = 1 to ( n) do
if ( max1<b[ j] ) then
begin
l: = j;
max1: = b[ j]
end ;
c[ 1 ] : = a[ l] ;
sum: = a[ l] ;
f: = l;
v: = l;
for h: = 2 to v do
begin
sum: = sum+ a[ f- 1 ] ;
c[ h] : = sum;
f: = f- 1
end ;
max2: = c[ 1 ] ;
for d: = 1 to v- 1 do
if ( c[ d] >= max2) then
max: = c[ d] ;
writeln ( max)
end .
cHJvZ3JhbSBsb2woaW5wdXQsb3V0cHV0KTsgIAp2YXIgYTphcnJheVsxLi4xMDAwMDAwXW9mIGludGVnZXI7dmFyICBiOmFycmF5WzEuLjEwMDAwMDBdb2YgaW50ZWdlcjt2YXIgYzphcnJheVsxLi4xMDAwMDAwXSBvZiBpbnRlZ2VyOyB2YXIgIG1heDIsIG1heDEsIHYsIHN1bTEsIHN1bSwgbWF4LCBkLCBmLCBoLCBsLCBqLCBuLHgsaTppbnRlZ2VyOyAgCiAgIAogIAogIApiZWdpbiAgCiAgcmVhZGxuKG4pOyAgCiBmb3IgaTo9MSB0byBuIGRvICAKICBiZWdpbiAgCiAgIHJlYWQoeCk7ICAKICAgYVtpXTo9eDsgIAogICAgaWYgKGk9MSkgdGhlbiAgCiAgICBiZWdpbiAgCiAgICAgYltpXTo9YVtpXTsgIAogICAgIHN1bTE6PWFbaV0gIAogICAgZW5kICAgCiAgICBlbHNlICAKICAgICBiZWdpbiAgCiAgICBzdW0xOj1zdW0xK2FbaV07ICAKICAgICBiW2ldOj1zdW0xICAKICAgICBlbmQgIAogICBlbmQ7ICAKICAgbWF4MTo9YlsxXTsgIAogICAgbDo9MQogICBmb3Igajo9MSB0byAobikgZG8gIAogICAgIGlmIChtYXgxPGJbal0pdGhlbiAgCiAgICAgYmVnaW4gIAogICBsOj1qOyAgCiAgIG1heDE6PWJbal0gIAogICBlbmQ7ICAKICAgICAgIAogICAgICAgIAogICAgICAgCiAgICAgICAKICAgICAgIAogIAogIAogICAgICAKICAgICAgCiAgICAgICAKICAgICBjWzFdOj1hW2xdOyAgCiAgICAgc3VtOj1hW2xdOyAgCiAgICAgZjo9bDsgIAogICAgIHY6PWw7ICAKICAgICAgCiAgICAgIAogICAgICAKICAgICAgIAogICAgICAKICAgICAgIAogICAgICAgCiAgICBmb3IgaDo9MiB0byAgdiAgZG8gICAKICAgICBiZWdpbiAgCiAgICAgIHN1bTo9c3VtK2FbZi0xXTsgIAogICAgICBjW2hdOj1zdW07ICAKICAgICAgZjo9Zi0xICAKICAgICBlbmQ7ICAKICAgIG1heDI6PWNbMV07CiAgICAgIGZvciBkOj0xIHRvIHYtMSBkbyAgCiAgICAgICBpZiAoY1tkXT49bWF4MikgdGhlbiAgCiAgICAgICAgbWF4Oj1jW2RdOyAgCiAgICAgICAgIAogICAgICAgICAKICAgICAgd3JpdGVsbihtYXgpICAKICAgICBlbmQuICA=
stdin
NTAKLTU5IDI3IC0yNSA1MiAtMTkgLTQyIC01NyA0NCAtMjYgLTQ4IDIyIDI2IC00MyAtNzIgNzkgLTEyIDY4IC02NyAtOTkgODEgLTcxIDE1IC00NyAtMzUgMTIgLTM1IDEzIC0xOCAtNjAgLTgyIDcxIDk2IDMxIDkgLTc1IC0zNSA2MyAtNDggLTIzIDUyIC02OSAyNCAtMjQgMjIgMzQgNjEgNTQgLTEyIC0zNCAyOA==
50
-59 27 -25 52 -19 -42 -57 44 -26 -48 22 26 -43 -72 79 -12 68 -67 -99 81 -71 15 -47 -35 12 -35 13 -18 -60 -82 71 96 31 9 -75 -35 63 -48 -23 52 -69 24 -24 22 34 61 54 -12 -34 28
compilation info
Free Pascal Compiler version 2.2.0 [2009/11/16] for i386
Copyright (c) 1993-2007 by Florian Klaempfl
Target OS: Linux for i386
Compiling prog.pas
prog.pas(25,4) Fatal: Syntax error, ";" expected but "FOR" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)
stdout