Viết chương trình tìm dãy con có tổng lớn nhất

để khóa học bổ ích đưa lên để các bạn tham khảo về nếu cần biết thêm về lời giải thì hãy liên hệ ,tôi còn rất nhiều bài bổ ích hơn để các bạn tham khảo ,,...Bài tập ở đây là những bài khách quan tôi đã làm nên có gì thì xin góp ý nhiều nhiều

Viết chương trình tìm dãy con có tổng lớn nhất.

Dữ liệu vào: được cho ở file văn bản maxtong.INP, có cấu trúc như sau: – Dòng 1: ghi số nguyên N

– Dòng 2: ghi N số nguyên, mỗi số cách nhau ít nhất 1 dấu cách

Dữ liệu ra: ghi vào file văn bản maxtong.OUT, có cấu trúc như sau: – Dòng 1: vị trí bắt đầu của dãy con tổng lớn nhất

– Dòng 2: số phần tử của dãy con tổng lớn nhất

– Dòng 3: Tổng lớn nhất

Ví dụ:

Maxtong.INP

8

–2 2 –1 3 5 –4 2 1

Maxtong.OUT

2

4

9

program tonglonnhat;

uses crt;

var a,b:array[1 100]of integer;

fi,fo:text;

n,x,y,d:integer;

procedure nhap;

var i:integer;

begin

assign(fi,'maxtong.inp');

reset(fi);

readln(fi,n);

for i:=1 to n do

read(fi,a[i]);

close(fi);

end;

procedure phuongan;

var i,ln,h:integer;

begin

b[1]:=a[1];

for i:=2 to n do

if a[i]<a[i]+b[i-1] then b[i]:=a[i]+b[i-1] else b[i]:=a[i]; ln:=b[1];

for i:=2 to n do

if ln<b[i] then

begin

ln:=b[i];

x:=i;

end;h:=ln;d:=0;i:=;

while (h<>0) do

begin