pig508 2008-07-12 00:21:00
点我顶贴
收藏
删除
var
a:array[1..20000] of longint；
n,i,j,max:longint；
begin
readln(n)；
for i:=1 to n do
readln(a[i])；
i:=0；
repeat
inc(i)；
for j:=i+1 to n do
if a[j]<a[i] then
inc(max)；
until i=n；
write(max)；
end.
全世界最简单的暴力搜索,
还以为数据很大,没想到全部在longint以内
,怎么还那么多人没过-_-＂
...........(彻底无语)；