Cod sursa(job #533199)

Utilizator guralivuion ion guralivu Data 13 februarie 2011 14:39:15
Problema Subsecventa de suma maxima Scor 75
Compilator fpc Status done
Runda Arhiva educationala Marime 0.68 kb
program ratb;
var i,sj,pozi,nr,pozj,pozfi,pozfj,summax,n,k,xk:longint;
si:int64;
f,g : text;
begin
  assign(f,'ssm.in');
  reset(f);
  assign(g,'ssm.out');
  rewrite(g);
  read(f,n);
  read(f,nr);
  sj:=nr; si:=nr;
  pozj:=1;
  summax:=nr;
  xk:=k;
 for i:=2 to n do
  begin
     read(f,nr);
     si:=si+nr;
     if (si-sj >summax){and(i-pozj>=k)} then
        begin
          pozfi:=i;
          pozfj:=pozj+1;
          summax:=si-sj;

	end;
     if si<sj then
            begin
                pozj:=i;
                sj:=si;

            end;
  end;
  close(f);
  write(g,summax,' ');
  write (g,pozfj,' ',pozfi);
  close(g);
end.
  close(g);
end.