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

Милана2345 Милана2345    3   27.11.2019 22:53    45

Ответы
Мимиf Мимиf  10.10.2020 16:35

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


Посчитайте количество пар элементов равных друг другу в массиве. любые два элемента равные друг друг
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика