【入门】小白的名次

时间限制: 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.