题目:Fish学数学 rqnoj173
题目描述
花了一个多月的时间,Fish终于学会了比较两个数的大小。他想检测下自己是否已经真的学会了,找来了Bug考考他。Bug马上写出了n个数,要Fish数出每个数后面比他小的数的个数的总和,Fish马上开始书了起来。Bug自己也在旁边算,可他发现自己也还不太清楚,但又不想在Fish面前丢脸,所以来求助你,希望你能够在Fish面前酸出标准答案。
输入格式
第一行为数n(n<=20000),以后1到n+1行每行一个数ai(ai<=1000000)。
输出格式
一个数,每个数后面比他小的个数的总和。
样例输入
3 3 2 1
样例输出
3
这道题不用多说了吧。。。很简单的,直接枚举累加
题目给出的数据有点夸大了。。。数据其实不大 朴素可以过
Pascal Code
program rqnoj173;
var
n,sum:longint;
a:array[0..20000+10] of longint;
procedure init;
begin
assign(input,'rqnoj173.in');
assign(output,'rqnoj173.out');
reset(input);
rewrite(output);
end;
procedure outit;
begin
close(input);
clo