记录编号 202198 评测结果 AAAAAAAAAA
题目名称 机房里的CF战争 最终得分 100
用户昵称 GravatarXUEYAN 是否通过 通过
代码语言 Pascal 运行时间 0.003 s
提交时间 2015-10-31 20:20:24 内存使用 0.25 MiB
显示代码纯文本
var
n,m,i,t:longint;
a:array[1..30000] of longint;
begin
assign(input,'cf.in');reset(input);
assign(output,'cf.out');rewrite(output);
readln(n,m);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
begin
if m>=a[i] then 
begin
m:=m+5;
t:=t+1;
end;
end;
writeln(t,m);
close(input);close(output);
end.