记录编号 | 212059 | 评测结果 | AAAAAAAAAA | ||
---|---|---|---|---|---|
题目名称 | 机房里的CF战争 | 最终得分 | 100 | ||
用户昵称 | グッド大きな萌菌 | 是否通过 | 通过 | ||
代码语言 | Pascal | 运行时间 | 0.005 s | ||
提交时间 | 2015-12-04 21:08:18 | 内存使用 | 0.24 MiB | ||
program cf; var i,n,m,s:longint; a:array[1..20000]of longint; begin assign(input,'cf.in');reset(input); assign(output,'cf.out');rewrite(output); readln(n,m); begin for i:=1 to n do begin readln(a[i]); if m>=a[i] then begin inc(s); m:=m+5; end; end; writeln(s,' ',m); end; close(input);close(output); end.