洛谷 P1020 导弹拦截

题目大意：
对于一个导弹拦截系统：它的第一发炮弹能够拦截任意高度的导弹，但之后拦截的每一发炮弹都不能高于前一发的高度。输入N发导弹依次飞来的高度a[i]，计算这套系统最多能拦截多少导弹，如果要拦截所有导弹最少要配备多少套这种导弹拦截系统。

1<=N<=100 0< a[i]<=30000

题解：
p[i]表示拦截了第i个导弹，前i个导弹用一个系统最多可以拦截多少个导弹。
q[i]表示前i个导弹拦截了第i个导弹最少要配备多少套导弹拦截系统。

前提a[j] > a[i]：
p[i]:=max (p[j]+1) (1<=j<=i-1,1<=i<=n)
前提a[j] < a[i]:
q[i]:=max (q[j]+1) (1<=j<=i-1,1<=i<=n)
一个系统最多能拦截的导弹为max
拦截全部导弹的最少系统数为max（q[i]（1<=i<=n）
时间复杂度:O(2*N^2)

var
      a,p,q:array [0..101] of longint;
      i,j,n,max,min:longint;
begin
      while not eoln do
      begin
            inc(n);
            read(a[n]);
      end;
      for i:=1 to n do
      begin
          p[i]:=1; q[i]:=1;
      end;
      max:=0; min:=0;
      for i:=1 to n-1 do
          begin
               for j:=i+1 to n do
               begin
                   if (a[j]<a[i]) and (p[i]+1>p[j]) then p[j]:=p[i]+1;
                   if (a[j]>a[i]) and (q[i]+1>q[j]) then q[j]:=q[i]+1;
               end;
          end;
      for i:=1 to n do
      begin
           if p[i]>max then max:=p[i];
           if q[i]>min then min:=q[i];
      end;
      writeln(max);
      writeln(min);
end.