拦截导弹

 拦截导弹  
 1999年NOIP全国联赛提高组
 时间限制: 1 s
 空间限制: 128000 KB
 题目等级 : 黄金 Gold
题目描述 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 n,sum,max,i,j,min,ans:longint;
    f,a:array[1..20] of longint;
procedure find(k:longint);
var i,j,max:longint;
begin
   max:=0;
      for i:=2 to n do
   begin
      for j:=1 to i-1 do
         if (a[j]>=a[i]) and (max<f[j])  then max:=f[j];
         f[i]:=max+1;
         max:=0;
   end;
end;
begin
   while not eoln do
   begin
       inc(n);
       read(a[n]);
   end;
   filldword(f,sizeof(f) div 4,1);
   //刚开始为数组填初值
   {只有填0的时候可以用fillchar；
   填-1的时候用char(-1)做强制类型转换
   其余的时候要根据数组中变量的类型相应的修改fill~后的内容}
   sum:=1;
   find(n);
   for i:=1 to n do
   begin
      if sum<f[i] then sum:=f[i];
   end;
   filldword(f,sizeof(f) div 4,1);
   //在第二问中要重新为数组填初值
   for i:=2 to n do
     for j:=1 to i do
     begin
        if (a[i]>a[j]) and(f[i]<=f[j]) then
        begin
            f[i]:=f[j];
            inc(f[i]);
            if ans<f[i] then ans:=f[i];
        end;
     end;
   writeln(sum);
   writeln(ans);
end.