Question

Посчитайте количество пар элементов равных друг другу в массиве. Любые два элемента равные друг другу образуют пару. На вход программы подаётся n – длина массива, а затем сам массив длиной n. Выведите количество таких пар. Учтите, что если элемент массива уже состоит в одной паре это не мешает ему попасть в другую. Sample Input: 5 5 5 5 5 5 Sample Output: 10

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 a.GroupBy(p -> p)

   .Select(p -> p.Count)

   .Where(p -> p > 1)

   .Select(p -> p * (p -1) div 2)

   .Sum

   .Println;

end.

Answer 2

Для подсчета количества пар элементов в массиве, вы можете воспользоваться следующим кодом на Python:

pythonCopy code
def count_pairs(n, arr):
    pairs = 0
    for i in range(n):
        for j in range(i + 1, n):
            if arr[i] == arr[j]:
                pairs += 1
    return pairs

# Ввод данных
n = int(input())
arr = list(map(int, input().split()))

# Вызов функции и вывод результата
result = count_pairs(n, arr)
print(result)

Этот код сначала считывает длину массива n и сам массив arr. Затем он использует два вложенных цикла для сравнения всех возможных пар элементов в массиве и увеличивает счетчик pairs, если элементы равны. Наконец, код выводит общее количество пар.