xdqck 2009-12-23 02:29:00
点我顶贴
收藏
删除
查看状态 Show Status
状态题目:统计数字
题目编号:133-统计数字 查看该题
状态: Unaccepted
测评机： Xeost[5]
得分： 0分
有效耗时： 该状态没有记录
测试结果1: 运行错误|普通保护错误
测试结果2: 运行错误|普通保护错误
测试结果3: 运行错误|普通保护错误
测试结果4: 运行错误|普通保护错误
测试结果5: 运行错误|普通保护错误
测试结果6: 运行错误|普通保护错误
测试结果7: 运行错误|普通保护错误
测试结果8: 运行错误|普通保护错误
测试结果9: 运行错误|普通保护错误
测试结果10: 运行错误|普通保护错误
提交代码：
var a,b:array[1..10000]of longint；
i,j,n,t:longint；
begin
read(n)；
for i:=1 to n do
begin
readln；
read(a[i])；
end；
for i:=1 to n do
begin
b[a[i]]:=b[a[i]]+1；
end；
t:=1；
for i:=1 to n do
if t<a[i]
then t:=a[i]；
for i:=1 to t do
if b[i]<>0
then writeln(i,’ ’,b[i])；
readln；
readln；
end.