riddle1.pas

来自「PASCAL光盘资料PASCAL光盘资料PASCAL光盘资料」· PAS 代码 · 共 41 行

var i,j,k,n,s,m:longint;
    boo:boolean;
    a,b:array[1..100] of longint;
    hash:array[1..100] of boolean;
procedure sort;
var p,q:longint;
  begin
    for i:=1 to n-1 do
      for j:=i+1 to n do
        if b[i]<b[j] then
          begin p:=b[i];b[i]:=b[j];b[j]:=p;
                p:=a[i];a[i]:=a[j];a[j]:=p;end;
  end;
begin
  fillchar(hash,sizeof(hash),true);
  assign(input,'riddle.in');
  reset(input);
  assign(output,'riddle.out');
  rewrite(output);
  readln(m);
  readln(n);
  for i:=1 to n do
    read(a[i]);
  for i:=1 to n do
    read(b[i]);
  sort;
  for i:=1 to n do
    begin
      boo:=true;
      for j:=a[i] downto 1 do
        if hash[j] then begin boo:=false;hash[j]:=false;break;end;
      if boo then begin
                    for k:=n downto 1 do
                      if hash[k] then begin hash[k]:=false;break;end;
                    inc(s,b[i]);
                  end;
    end;
  writeln(m-s);
  close(input);
  close(output);
end.