Cod sursa(job #6298)

Utilizator mariuscris90giuroiu marius mariuscris90 Data 18 ianuarie 2007 18:28:28
Problema Secventa 2 Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.56 kb
program sumamaxima;
type vector=array[1..60000] of integer2;
var a:vector;
    f,g:text;
    i,n,k,j,l1,l2:integer;
    s,max:real;
begin
assign(f,'secv2.in');assign(g,'secv2.out');reset(f);rewrite(g);
readln(f,n,k);
for i:=1 to n do read(f,a[i]);
s:=0;
for i:=1 to n do
s:=s+a[i];max:=s;l1:=1;l2:=n;i:=1;
while n-i+1>k do begin
if s-a[n]>s-a[i] then begin
s:=s-a[n];
n:=n-1;end
          else
begin s:=s-a[i];
i:=i+1;end;
if (n-i+1>=k)and (s>=max) then begin l1:=i;l2:=n;max:=s;end;
end;
write(g,l1,' ',l2,' ',max:0:0);close(f);close(g);end.