Pagini recente » Cod sursa (job #2272383) | Concurs-mihai-patrascu-2013/clasament | Cod sursa (job #439474) | Cod sursa (job #2515700) | Cod sursa (job #533199)
Cod sursa(job #533199)
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.