【入门】小白的名次

【入门】小白的名次

时间限制: 1 Sec  内存限制: 32 MB
提交: 605  解决: 320
[提交][状态][讨论版]

题目描述

兔子小白是位数学爱好者，有一次它参加了兔界里的数学比赛，成绩公布后，小白很想知道自己的成绩到底排第几，现在请你帮它编一个程序，要求输入一个成绩，就能知道相应的名次。注意：同分的按相同名次算，且只算一次。

输入

输入共三行。
第一行：一个整数n（n<=30000）
第二行：n个正整数（这些数不大于1000）。
第三行：一个整数，需要查询的分数。

输出

输出共一行。一个整数，查询成绩的名次。

样例输入

7 30 50 80 60 20 50 60 50

样例输出

3

提示

 

来源

武进区第4届程序设计比赛题（初中）

 

[提交][状态][讨论版]

 

 

 

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.