Предмет: Информатика,
автор: 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?
Ответы
Автор ответа:
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.
Приложения:
![](https://files.topotvet.com/i/a5c/a5c2d32e429d9d7d821f788468d24688.jpg)
Похожие вопросы
Предмет: Литература,
автор: anastasiafenak3
Предмет: Английский язык,
автор: anna528677
Предмет: Английский язык,
автор: kfiggfhvfutjgh
Предмет: Математика,
автор: liana555551
Предмет: Алгебра,
автор: alyaalyaaaa