88
56
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Xin đừng khỏi thuật toán vì tôi đã bỏ code 3 tháng rồi và bài này nó cũng tốn đến 3 - 4 ngày của tôi nên nháp sẽ không còn nữa
type t=array[1..trunc(1e6)] of longint;
var a,b: t; n,i,j,p1,p2,res:longint;
procedure sort(var a:t; l,r:longint); var i,j,x,k: longint;
begin
i:=l; j:=r; x:=a[(l+r) div 2];
repeat
while a[i]<x do inc(i); while (a[j]>x) do dec(j);
if i<=j then begin k:=a[i]; a[i]:=a[j]; a[j]:=k; inc(i); dec(j) end;
until i>j; if j>l then sort(a,l,j); if i<r then sort(a,i,r);
end;
BEGIN
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do read(b[i]);
sort(a,1,n); sort(b,1,n); p1:=0; p2:=0;
for i:=1 to n do if (a[i]>0) then begin p1:=i; break; end;
for i:=1 to n do if (b[i]>0) then begin p2:=i; break; end;
if (p1=0) then p1:=n+1; if (p2=0) then p2:=n+1; i:=n; j:=1;
while (i>=p1) and (j<p2) do
begin
if (abs(b[j])>a[i]) then
begin dec(i); inc(j); inc(res); end
else dec(i); end;
i:=1; j:=n;
while (i<p1) and (j>=p2) do
begin
if (abs(a[i])>b[j]) then
begin inc(i); dec(j); inc(res); end
else dec(j); end;
write(res);
END.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
88
1857
56
cảm ơn anh giai nhiều ạ! Anh giỏi quá. Mà anh ơi, anh có thể giúp em 1 phần nữa được không? Làm bài này giúp em với không quicksort và sort được không ạ? Cảm ơn anh nhiều!
880
16099
456
Nếu có code r thì giúp đc