Предмет: Информатика, автор: andrewkriukov

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


gfhjkmgfhjkm20: Точно 5 должно быть 6 в Sample Input: 5 5 5 5 5 5?

Ответы

Автор ответа: BobbyFresnel
0

===== 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.

Приложения:
Похожие вопросы
Предмет: Литература, автор: anastasiafenak3
Предмет: Английский язык, автор: kfiggfhvfutjgh
Предмет: Математика, автор: liana555551
Предмет: Алгебра, автор: alyaalyaaaa