Посчитайте количество пар элементов равных друг другу - вопрос №10262256 от andryushaivcheoo 26.04.2020 13:26

Question

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

andryushaivcheoo · Answer

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