记录编号 109739 评测结果 AAAAAAAAAA
题目名称 机房里的CF战争 最终得分 100
用户昵称 Gravatar(⊙o⊙)… 是否通过 通过
代码语言 Pascal 运行时间 0.007 s
提交时间 2014-07-09 15:27:22 内存使用 38.31 MiB
显示代码纯文本
program xx;
var
n,m,i,q:longint;
a:array[1..10000000] of longint;
begin
assign(input,'cf.in');
assign(output,'cf.out');
reset(input);
rewrite(output);
readln(n,m);
for i:=1 to n do
begin
readln(a[i]);
if m>=a[i] then begin q:=q+1; m:=m+5; end;
end;
writeln(q,m);
close(input);
close(output);
end.