fork download
copy 
  1. program lol(input,output);  
  2. 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;  
  3.  
  4.  
  5.  
  6. begin  
  7.   readln(n);  
  8.  for i:=1 to n do  
  9.   begin  
  10.    read(x);  
  11.    a[i]:=x;  
  12.     if (i=1) then  
  13.     begin  
  14.      b[i]:=a[i];  
  15.      sum1:=a[i]  
  16.     end   
  17.     else  
  18.      begin  
  19.     sum1:=sum1+a[i];  
  20.      b[i]:=sum1  
  21.      end  
  22.    end;  
  23.    max1:=b[1];  
  24.   l:=1;
  25.    for j:=1 to (n) do  
  26.      if (max1<b[j])then  
  27.      begin  
  28.    l:=j;  
  29.    max1:=b[j]  
  30.    end;  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.      c[1]:=a[l];  
  42.      sum:=a[l];  
  43.      f:=l;  
  44.      v:=l;  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.     for h:=2 to  v  do   
  53.      begin  
  54.       sum:=sum+a[f-1];  
  55.       c[h]:=sum;  
  56.       f:=f-1  
  57.      end; 
  58.  max2:=c[1];
  59.  
  60.       for d:=1 to v do  
  61.        if max2<c[d] then  
  62.         max2:=c[d];  
  63.  
  64.  
  65.       writeln(max2)  
  66.      end.
Success #stdin #stdout 0.01s 6116KB
comments (?)
stdin
copy 
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
stdout
copy 
54
https://ideone.com/1eoLD
language:
Pascal (fpc 3.0.4)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!