Pagini recente » Cod sursa (job #2923048) | Cod sursa (job #917789) | Cod sursa (job #2351616) | Cod sursa (job #1991647) | Cod sursa (job #742140)
Cod sursa(job #742140)
Program p2_dinamic;
var fi,fo : text;
max,start,finis,i,n,sum,a : longint;
Function maxim(a,b:longint):longint;
begin
if a>b then maxim:=a
else begin
maxim:=b;
start:=i;
end;
end;
begin
assign(fi,'ssm.in'); reset(fi); readln(fi,n);
assign(fo,'ssm.out'); rewrite(fo);
read(fi,sum); max:=sum;
start:=1; finis:=1;
for i:=2 to n do begin
read(fi,a);
sum:=maxim(sum+a,a);
if sum>max then begin
max:=sum;
finis:=i;
end;
end;
write(fo,max,' ',start,' ',finis);
close(fi); close(fo);
end.