codevs 拦截导弹 1044

题目描述 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.