Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lương Nguyễn Ngọc Linh

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 >.<

Nguyễn Minh Lệ
27 tháng 3 2020 lúc 13:07

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.

Khách vãng lai đã xóa
Nguyễn Lê Phước Thịnh
27 tháng 3 2020 lúc 10:17

có cho độ dài của đoạn con đó không bạn?

Khách vãng lai đã xóa

Các câu hỏi tương tự
Bui Trong Diep
Xem chi tiết
Linh Tran
Xem chi tiết
Khanh Linh
Xem chi tiết
Dandelion
Xem chi tiết
Nguyễn Hiếu
Xem chi tiết
Linh Chi
Xem chi tiết
Minh Quyết
Xem chi tiết
Benny
Xem chi tiết
Lee Jihoon
Xem chi tiết