首页 > 学院 > 开发设计 > 正文

数列分段Section I

2019-11-08 02:32:39
字体:
来源:转载
供稿:网友
var a:array[1..100000]of longint; i,j,n,m,s,ans:longint;begin read(n,m); for i:=1 to n do read(a[i]); for i:=1 to n do  if a[i]+s<=m then s:=s+a[i]               else begin s:=a[i];inc(ans);end; write(ans+1);end.
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表