Đáp án:

Giải thích các bước giải:

program convert;

var

     n,i,ma1,ma2,ma3,t,c1,c2,c3: integer;

     a,b,c,d: array of integer;

begin

     readln(n);

     setlength(a,n);

     setlength(b,n);

     for i :=0 to n-1 do

         read(a[i]);

     readln;

     for i := 0 to n-1 do

         read(b[i]);

     readln;

     for i := 0 to n-1 do

         if a[i]=0 then

            c := c+[b[i]];

     d := copy(c,0,length(c));

     ma1:= maxintvalue(c);

     delete(c, indexof(c,ma1),1);

     ma2:= maxintvalue(c);

     delete(c,indexof(c,max2),1);

     ma3:=maxintvalue(c)

     delete (c,indexof(c,ma2),1);

     t:=0;

     c1 := count(d,ma1);

     c2 := count(d,ma2);

     c3 := count(d,ma3);

     if ma1= ma2 then

        t:= t-c2

     if ma2=ma3 then 

        t:= t-c3;

     writeln(t + c1 +c2 +c3);

end.