大神告诉我思路！代码也行

可不可以转化一下变成统计逆序对？
或者来个图论？删边最长路？（后继为同一数字则权值+1）
还是说贪心加枚举？
DP好像也可以？F[I,J]:=k；删第I只奶牛的编号对第J只奶牛编号的影响（I<>J）？（最大值）
其实枚举是最朴实的。。。

实际上跟2L所说
删掉奶牛序列A中出现的B[i]
得到A*
然后扫描A‘统计最长序列
B[i]是所有奶牛的编号
如你的样例
B就是｛2，3，5，7｝
删掉2 看影响
删掉3 看影响
删掉5 看影响
然后对每次的最大值打次擂台就过去了。。。
目测时间复杂度不会很大
因为可以用字符串来处理。。。

var i,j,n,m,t,p,ans:longint;
a:array [1..1000] of longint;
temp,temp1,x,k:string;
b:array [1..1000] of string;
begin
read(n); m:=0; x:=**; k:=**;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
str(a[i],temp);
t:=pos(temp,k);
x:=x+temp+* *;
if t=0 then
begin
k:=k+temp+* *;
inc(m);
b[m]:=temp;
end;
end;
for i:=1 to m do
begin
temp:=x;
while pos(b[i],temp)<>0 do delete(temp,pos(b[i],temp),length(b[i])+1);
for j:=1 to m do
if i<>j then
begin
temp1:=temp;
p:=0;
t:=pos(b[j],temp1);
if t<>0 then
while pos(b[j],temp1)=t do
begin
inc(p);
delete(temp1,t,length(b[j])+1);
end;
if p>ans then
ans:=p;
end;
end;
writeln(ans);
end.
唔 也不知道对不对 好久没编了 手生了

上面那个是枚举让我试试建图