├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案错误...程序输出比正确答案长

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

program hechangduixing;

var i,j,k,n,min:integer;f,t,outer:array[0..100]of integer;

p:array[1..100]of record

pre,aft:integer;

end;

begin

readln(n);

for i:=1 to n do

read(t[i]);

for i:=1 to n do

with p[i] do

begin

pre:=0;

aft:=0;

end;

t[0]:=maxint;

t[n+1]:=maxint;

for i:=n downto 1 do

for j:=n downto i+1 do

if (t[i]>t[j]) and (p[i].aft0) and (p[i].aft>0) then

outer[i]:=n-(p[i].pre+p[i].aft+1);

if outer[i]