题目描述 Description 某国为了防御敌国的导弹袭击，发展出一种导弹拦截系统。但是这种导弹拦截系统有一个缺陷：虽然它的第一发炮弹能够到达任意的高度，但是以后每一发炮弹都不能高于前一发的高度。某天，雷达捕捉到敌国的导弹来袭。由于该系统还在试用阶段，所以只有一套系统，因此有可能不能拦截所有的导弹。 输入描述 Input Description 输入导弹依次飞来的高度（雷达给出的高度数据是不大于30000的正整数） 输出描述 Output Description 输出这套系统最多能拦截多少导弹，如果要拦截所有导弹最少要配备多少套这种导弹拦截系统。 样例输入 Sample Input 389 207 155 300 299 170 158 65 样例输出 Sample Output 6 2 数据范围及提示 Data Size & Hint 导弹的高度<=30000，导弹个数<=20
var
a,b:array[1..3000]of longint; n,i,j,x,k,p:longint; begin while not eoln do begin inc(n); read(x); if n=1 then b[1]:=x; a[n]:=x; end; k:=1; for i:=2 to n do begin p:=0; for j:=1 to k do if b[j]>=a[i] then if p=0 then p:=j else if b[j]<b[p] then p:=j; if p=0 then begin inc(k);b[k]:=a[i];end else b[p]:=a[i]; end; writeln(k); end.