Cod sursa(job #94248)
Utilizator | Gavrila Vlad GavrilaVlad | Data | 22 octombrie 2007 15:35:50 |
---|---|---|---|
Problema | Secventa 2 | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.64 kb |
var v:array[0..50000]of longint;
n,k,m,s,u,a,b:int64;
i,j:longint;
f:text;
begin
assign(f,'secv.in');
reset(f);
read(f,n,k);
v[0]:=0;
for i:=1 to n do
begin
read(f,u);
v[i]:=v[i-1]+u;
end;
m:=250001;
close(f);
assign(f,'secv2.out');
rewrite(f);
s:=-12500050000;
for i:=k to n do
begin
if v[i-k+1]<m then begin j:=i-k;
m:=v[i-k];
end;
if v[i]-m>s then begin a:=i;
b:=j;
s:=v[i]-m;
end;
end;
writeln(f,b+1,' ',a,' ',s);
close(f);
end.