Cod sursa(job #307392)
Utilizator | FII Andrei Netedu netedu_andrei | Data | 24 aprilie 2009 09:06:07 |
---|---|---|---|
Problema | Subsecventa de suma maxima | Scor | 5 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.53 kb |
var f,g:text;
n,i,smax,s,j,imax,jmax:longint;
a:array[1..1000]of longint;
begin
assign(f,'ssm.in');reset(f);
assign(g,'ssm.out');rewrite(g);
readln(f,n);
for i:=1 to n do
read(f,a[i]);
for i:=1 to n do
begin
s:=a[i];
for j:=i+1 to n do
begin
if s>smax then begin
smax:=s;
imax:=i;
jmax:=j-1;
end;
s:=s+a[j];
end;
end;
writeln(g,smax,' ',imax,' ',jmax);
close(g);
end.