language: Pascal (fpc) (fpc 2.2.0)
date: 105 days 9 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
25
26
27
28
29

program dyskolo(input,output);
var N,sum,i,j,min:integer;
    akol : array[1..1000000] of integer;
    yes:boolean;
begin
      
        sum:=0;
        readln(N);
        for i:=1 to N do read(akol[i]);
        readln;
        min:=akol[1]+akol[2];
        for j:=1 to N do
                begin
                 yes:=true;
                 i:=j+1;
                while yes and (i<=N) do 
                        begin
                                sum:=akol[j]+akol[i];
                                
                                if abs(sum)<abs(min) then min:=sum;
                                
 
                                sum:=0;
                                if akol[j]+akol[i+1]> min then yes:=false;
                                i:=i+1;
                        end
                end;
       writeln(min); 
 end.