Bài 95/2002 - Dãy có tổng lớn (Dành cho học sinh THPT) Program subseq; const inp = 'subseq.inp'; out = 'subseq.out'; var n, dau, cuoi, d:longint; max, T:longint; f, g:text; Procedure input; begin assign(f,inp); reset(f); assign(g,out); rewrite(g); Readln(f,n); End; Procedure solve; var i,j:longint; begin dau:=1; cuoi:=1; d:=1; max:=-maxlongint; T:=0; for i:=1 to n begin readln(f,j); T:=T + j ; If T > max then begin max:=T; dau:=d; cuoi:=i; end; If T