LIFE 2008-10-22 00:36:00
点我顶贴
收藏
删除
program life；
var
opt:array[1..2500,1..3] of int64；
ipt:array[1..2500] of longint；
i,j,n,m,k:longint；
ans:int64；
begin
assign (input,’2.in’)；
reset (input)；
readln (n)；
for i:=1 to n do
read (ipt[i])；
opt[1,1]:=1；
for i:=2 to n do
for j:=i-1 downto 1 do
if ipt[j]>ipt[i] then
begin
opt[i,1]:=1；
inc (opt[i,2],opt[i,1])；
inc (ans,opt[j,2])；
end；
writeln (ans)；
end.
算发明显错误！但是可以过7个点！！