[johnceduy]

Đây là code của em, nếu thíu xót hay tối tăm chỗ nào nhờ anh góp ý

Begin
     Write('Nhap vao n:');readln(n);
     For i:=1 to n do begin
     Write ('Nhap vao a[',i,']:');readln(a[i]);
     end;
     Write('Nhap vao m:');readln(m);
For i:=1 to n-1 do begin
 T:=a[i]+a[i+1];
 If T<=m then begin
 dem:=2;
 For j:=1 to n-1-i do begin
 If a[i+1+j]>0 then begin
 T:=T+a[i+1+j];
 If T<=m then dem:=dem+1
else break;
 end;
 end;
 end
else break;
 b[i]:=dem;
end;
max:=0;
For i:=1 to n do
 If b[i]>max then max:=b[i];
write('Dai nhat:',max);
readln;
end.