Question

В массиве A хранится возраст N юношей, а в массиве B – возраст N девушек. Какое максимальное количество пар из них можно составить так, чтобы в каждой паре были юноша и девушка одного возраста

Answer 1

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!


begin
  var n:= ReadInteger('N =');
  var a:= ReadArrInteger('Введите возраст юношей ->',n);
  var b:= ReadArrInteger('Введите возраст девушек ->',n);
  var bal:= new integer[120];dec(n);
  for var i:= 0 to n do
    inc(bal[a[i]]);
  var ans := 0;
  for var i:= 0 to n do
    if (bal[b[i]] > 0)then
    begin
      dec(bal[b[i]]);
      inc(ans);
    end;              
    Writeln(ans);
end.