Посчитайте количество пар элементов равных друг другу в массиве. любые два элемента равные друг другу образуют пару. на вход программы подаётся n – длина массива, а затем сам массив длиной n. выведите количество таких пар. учтите, что если элемент массива уже состоит в одной паре это не мешает ему попасть в другую. sample input: 5 5 5 5 5 5 sample output: 10
===== 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.