【入门】小白的名次
时间限制: 1 Sec 内存限制: 32 MB提交: 605 解决: 320
[ 提交][ 状态][ 讨论版]
题目描述
兔子小白是位数学爱好者,有一次它参加了兔界里的数学比赛,成绩公布后,小白很想知道自己的成绩到底排第几,现在请你帮它编一个程序,要求输入一个成绩,就能知道相应的名次。注意:同分的按相同名次算,且只算一次。
输入
输入共三行。
第一行:一个整数n(n<=30000)
第二行:n个正整数(这些数不大于1000)。
第三行:一个整数,需要查询的分数。
输出
输出共一行。一个整数,查询成绩的名次。
样例输入
7 30 50 80 60 20 50 60 50
样例输出
3
提示
来源
var a:
array[
0..
1000]
of longint;
x,n,i,c,ans:longint;
begin
readln(n);
for i:= 1 to n do
begin
read(x);
a[x]:= 1;
end;
readln(c);
for i:=c+ 1 to 1000 do ans:=ans+a[i];
writeln(ans+ 1);
end.
x,n,i,c,ans:longint;
begin
readln(n);
for i:= 1 to n do
begin
read(x);
a[x]:= 1;
end;
readln(c);
for i:=c+ 1 to 1000 do ans:=ans+a[i];
writeln(ans+ 1);
end.