Câu hỏi: Viết chương trình nhập mảng n phần tử. Hãy xuất ra màn hình dãy liên tiếp có tổng lớn nhất. - Mọi người giúp em với! Em chỉ mới học lớp 7 nhưng ôn Tin học 8 để thi học sinh giỏi và hình như đây là bài của lớp 11 nên em không biết làm .. Mong mọi người giúp em nhé! Cửm mơn mọi người ^.^ ! Love >.<
Program Day_con1b;
Type KM= array[1..100] of integer;
Var M:KM; k,i,j,n,ldau, dai,
Max: integer;
Function TONG(A:KM;m,l:byte):Integer;
Var Tam,i:integer;
Begin
Tam:=0;
For i:=m to m+l do
Tam:=Tam + A[i];
TONG:=Tam;
End;
Begin
Write('Nhap so n: '); Readln(n);
For i:=1 to n do
Begin
Write('[',i,']=');
Readln(M[i]);
End;
Max:=M[1];
dai:=1;
ldau:=1;
For i:= 1 to n do
For j:=0 to n-i+1 do
if TONG(M,i,j)> Max then
Begin
ldau:=i;
Max:=Tong(M,i,j) ;
dai:=j+1
End;
for k:=ldau to ldau+dai-1 do
write(m[k],' ');
Readln
End.
có cho độ dài của đoạn con đó không bạn?
