殇樱 2013-08-09 04:30:00
点我顶贴
收藏
删除
为什么我的这个一直这样啊！！！
[quote][url=/Redirect.asp?Act=Reply&DID=4102&RID=30422]原帖[/url]由 [i]殇樱[/i] 于 2013-7-24 19:04:00 发表
状态: Unaccepted
测评机： Xeost[5]
得分： 0分
提交日期： 2013-7-24 19:02:00
有效耗时： 该状态没有记录
测试结果1: 运行错误|普通保护错误
测试结果2: 运行错误|普通保护错误
测试结果3: 运行错误|普通保护错误
测试结果4: 运行错误|普通保护错误
测试结果5: 运行错误|普通保护错误
测试结果6: 运行错误|普通保护错误
测试结果7: 运行错误|普通保护错误
测试结果8: 运行错误|普通保护错误
测试结果9: 运行错误|普通保护错误
测试结果10: 运行错误|普通保护错误
提交代码：
view sourceprint?
var n,i,x:longint; a:array[1..10000]of longint;
begin
read(n);
for i:=1 to n do begin read(x); a[x]:=a[x]+1; end;
for i:=1 to 10000 do
if a[i]>0 then writeln(i,' ',a[i]);
end.[/quote]