Đang tải... (xem toàn văn)
để 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 có tổng lớn Dữ liệu vào: cho file văn maxtong.INP, có cấu trúc sau: – Dòng 1: ghi số nguyên N – Dòng 2: ghi N số nguyên, số cách dấu cách Dữ liệu ra: ghi vào file văn maxtong.OUT, có cấu trúc sau: – Dòng 1: vị trí bắt đầu dãy tổng lớn – Dòng 2: số phần tử dãy tổng lớn – Dòng 3: Tổng lớn Ví dụ: Maxtong.INP –2 –1 –4 Maxtong.OUT 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 read(fi,a[i]); close(fi); end; procedure phuongan; var i,ln,h:integer; begin b[1]:=a[1]; for i:=2 to n 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 if ln<b[i] then begin ln:=b[i]; x:=i; end;h:=ln;d:=0;i:=; while (h<>0) begin