Tin học tính tổng cụm số lớn nhất trong dãy

[hoc sinh gioi eakar]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

tính tổng cụm số lớn nhất trong dãy
vd -9 4 -2 8 5 -9 6 5 7 -15
có tổng lớn nhất trong dãy là bằng 24
đoạn code sau đây cực hữu ích và đúng 100%
program vct;
uses crt;
var a:array[0..100] of integer;
i,n,max,j,an:integer;
begin
clrscr;a[0]:=0;
write('moi ban nhap n=');readln(n);
for i:=1 to n do
begin
write('moi ban nhap gia tri thu ',i,'=');
readln(an);
a:=a[i-1]+an;
end;
max:=a[1];
for i:=1 to n do
for j:=1 to n do
if max<a[j]-a[i-1] then max:=a[j]-a[i-1];
writeln('tong lon nhat la=',max);
readln;
end.
{chúc các bạn làm bài tốt}

 

[02-07-2019.]

tính tổng cụm số lớn nhất trong dãy
vd -9 4 -2 8 5 -9 6 5 7 -15
có tổng lớn nhất trong dãy là bằng 24
đoạn code sau đây cực hữu ích và đúng 100%
program vct;
uses crt;
var a:array[0..100] of integer;
i,n,max,j,an:integer;
begin
clrscr;a[0]:=0;
write('moi ban nhap n=');readln(n);
for i:=1 to n do
begin
write('moi ban nhap gia tri thu ',i,'=');
readln(an);
a:=a[i-1]+an;
end;
max:=a[1];
for i:=1 to n do
for j:=1 to n do
if max<a[j]-a[i-1] then max:=a[j]-a[i-1];
writeln('tong lon nhat la=',max);
readln;
end.
{chúc các bạn làm bài tốt}

var a:array[0..1000000] of int64;
    x,y,n,i,j,d,c:longint;
begin
 assign(input,'maxsum.inp'); reset(input);
 assign(output,'MAXsum.out'); rewrite(output);
 readln(n);  a[0]:=0;
 for i:=1 to n do
  begin
   read(x);
   a[i]:=a[i-1]+x;
  end;
 y:=low(longint);
 for i:=1 to n do
  for j:=0 to i-1 do
   if a[i]-a[j]>y then
     y:=a[i]-a[j];
 write(y);
end.

Cách mình là quy hoạch động nha!