记录编号 212059 评测结果 AAAAAAAAAA
题目名称 机房里的CF战争 最终得分 100
用户昵称 Gravatarグッド大きな萌菌 是否通过 通过
代码语言 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.