【枚举】Fish学数学

题目: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);
  close(output);
  halt;
end;

procedure readdata;
var
  i,j:longint;
begin
  read(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[j]<a[i] then inc(sum);
  writeln(sum);
end;

procedure main;
begin
end;

begin
  init;
  readdata;
  main;
  outit;
end.