这是最长不下降子序列:varf,b:array[0..3010] of longint;m,n,ans,i,j:longint;function max(a,b:longint):longint;beginif a>b then max:=a else max:=b;end;beginreadln(m);for i:=1 to m do readln(b);ans:=0;for i:=1 to m do begin f:=1; for j:=1 to i-1 do
if b[j]=zl[i-1] then inc(t);end;writeln(t)...
