Pagini recente » Cod sursa (job #63148) | Cod sursa (job #1554359) | Cod sursa (job #737616) | Cod sursa (job #2206970) | Cod sursa (job #742147)
Cod sursa(job #742147)
Program p2_dinamic;
var fi,fo : text;
max,start,finis,i,n,sum,a : longint;
begin
assign(fi,'ssm.in'); reset(fi); readln(fi,n);
assign(fo,'ssm.out'); rewrite(fo);
sum:=-1 shl 21; max:=sum; start:=0;
for i:=1 to n do begin
read(fi,a);
if sum<0 then begin
sum:=a;
start:=i;
end
else sum:=sum+a;
if sum>max then begin
max:=sum;
finis:=i;
end;
end;
write(fo,max,' ',start,' ',finis);
close(fi); close(fo);
end.