Cod sursa(job #394905)
Utilizator | Data | 11 februarie 2010 19:54:10 | |
---|---|---|---|
Problema | Secventa 2 | Scor | 50 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.59 kb |
program secventa2;
type vector=array[0..50000] of longint;
var n,k,s,max,i,x,y:longint;
v:vector;
f:text;
begin
assign(f,'secv2.in'); reset(f); v[0]:=0;
read(f,n,k);
for i:=1 to n do
begin
read(f,v[i]);
v[i]:=v[i-1]+v[i];
end;
s:=1;
max:=v[k];
x:=1;
y:=k;
close(f);
for i:= k+1 to n do
begin
if v[i-k]<v[s] then s:=i-k;
if max<v[i]-v[s] then
begin max:=v[i]-v[s]; x:=s+1; y:=i; end;
end;
assign(f,'secv2.out'); rewrite(f);
write(f,x,' ',y,' ',max);close(f);
end.