洛谷 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.