language: Pascal (gpc) (gpc 20070904)
date: 103 days 2 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

program duskolo_2 (input, output);
var metr, k, i, l, sum, f, n, max : integer;
    A : array [1..100] of integer;
    athr : array [1..1000] of integer;
begin
readln(n);
i:=1;
while (not eoln) do begin read(A[i]); i:=i+1 end;
metr:=1;
for k:=1 to i-1 do 
    begin
    sum:=A[k];
    for l:=k+1 to i do
        begin
        sum:=sum+A[l];
        athr[metr]:=sum;
        metr:=metr+1
        end
    end;
max:=athr[1];
for f:=1 to metr-1 do if athr[f]>max then max:=athr[f];
writeln(max)
end.