记录编号 | 109739 | 评测结果 | AAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | 机房里的CF战争 | 最终得分 | 100 | ||
用户昵称 | (⊙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.