- Đáp án:

program MaxPairs;

var
    distinctValues, value, i, pairs: integer;

begin
    // Đọc số lượng giá trị khác nhau của lá bài
    readln(distinctValues);

    // Khởi tạo mảng đếm số lần xuất hiện của từng giá trị
    var count: array[1..100] of integer;
    for i := 1 to 100 do
        count[i] := 0;

    // Đọc và đếm số lần xuất hiện của từng giá trị
    for i := 1 to distinctValues do
    begin
        readln(value);
        count[value] := count[value] + 1;
    end;

    // Tính số cặp lá bài tối đa có thể tạo ra
    pairs := 0;
    for i := 1 to 100 do
        pairs := pairs + count[i] div 2;

    // In ra số cặp tối đa có thể tạo ra
    writeln(pairs);
end.

- Giải thích

- Đọc vào số lượng giá trị khác nhau của các lá bài, sau đó đọc từng giá trị và đếm số lần xuất hiện của từng giá trị. Cuối cùng, nó sẽ tính số cặp lá bài tối đa có thể tạo ra bằng cách chia số lần xuất hiện của mỗi giá trị cho 2 và cộng lại. Kết quả sẽ được in ra màn hình.