Giải giúp mình bài này bằng Pascal:
Nếu như ở bữa tiệc khiêu vũ đầu tiên, các bạn nam chỉ muốn nhảy cùng bạn nữ thấp hơn mình và ngược lại, các bạn nữ chỉ muố

Question

Giải giúp mình bài này bằng Pascal: 
Nếu như ở bữa tiệc khiêu vũ đầu tiên, các bạn nam chỉ muốn nhảy cùng bạn nữ thấp hơn mình và ngược lại, các bạn nữ chỉ muốn nhảy cùng bạn nam cao hơn mình. Thì ở bữa tiệc này lại không như vậy, có N bạn nam và N bạn nữ nhưng không phải tất cả bạn nam đều muốn nhảy cùng bạn nữ thấp hơn mình và cũng không phải tất cả bạn nữ đều muốn nhảy cùng bạn nam cao hơn mình. Bạn hãy giúp họ tính xem có thể lập được tối đa bao nhiêu cặp nhảy nhé.
Dữ liệu nhập: Dòng đầu tiên chứa một số nguyên dương N (1  N  105). Dòng thứ hai chứa N số nguyên đại diện cho chiều cao của các bạn nam. Dòng thứ ba chứa N số nguyên đại diện cho chiều cao của các bạn nữ. Chiều cao của các bạn bằng trị tuyệt đối của số đại diện tương ứng, chiều cao của các bạn nằm trong đoạn [1500, 2500] (đơn vị mm). Nếu giá trị đại diện là dương nghĩa là bạn đó muốn nhảy cùng một bạn khác giới cao hơn mình, ngược lại giá trị đại diện là số âm nếu bạn đó muốn nhảy cùng một bạn khác giới thấp hơn mình.
Dữ liệu xuất: một số nguyên duy nhất là số cặp tối đa có thể ghép được.
Ví dụ
input
1
-1800
1800
output
0
input
1
1700
-1800
output
1
input
2
-1800 -2200
1900 1700
output
2
(SỚM GIÚP MÌNH NHÉ, CHỦ NHẬT MÌNH THI CHUYÊN TIN RỒI)

uyenvu33 · Answer

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 dec(j);    if i  until i>j; if j>l then sort(a,l,j); if iend;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    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=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.

TRẢ LỜI

TRẢ LỜI

Bạn muốn hỏi điều gì?

Tham Gia Group Dành Cho Lớp 9 - Ôn Thi Vào Lớp 10 Miễn Phí

Bạn muốn hỏi điều gì?

Tìm kiếm với hình ảnh

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Lưu vào

TRẢ LỜI

TRẢ LỜI

Bạn muốn hỏi điều gì?

Tham Gia Group Dành Cho Lớp 9 - Ôn Thi Vào Lớp 10 Miễn Phí

Bạn muốn hỏi điều gì?

Lý do báo cáo vi phạm?