Посчитайте количество пар элементов равных друг другу в массиве. любые два элемента равные друг другу образуют пару. на вход программы подаётся 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.

ответ:

n = int(

lstr = (" ")

ns = []

i = 0

tot = 0

while i < n:

    ns.append(int(

    tot += int(lstr[i])

    i += 1

if tot % 5 == 0 and len(ns) > 4:

    sm = int(tot / 5)

    ns = sorted(ns, reverse=true)

    ps = "yes"

    su = 0

    sk = 0

    b = false

    for n in ns:

        if n ! = 0 and b:

            su == 0

            sk += 1

            b = false

            break

        if sk == 5:

            ps = "no"

            break

        su += n

        if abs(su) > abs(sm):

            ps = "no"

            break

        if su == sm:

            b = true

    print(ps)

else:

    print("no")

объяснение:

ответ:

n = int(

lstr = (" ")

ns = []

i = 0

tot = 0

while i < n:

    ns.append(int(

    tot += int(lstr[i])

    i += 1

if tot % 5 == 0 and len(ns) > 4:

    sm = int(tot / 5)

    ns = sorted(ns, reverse=true)

    ps = "yes"

    su = 0

    sk = 0

    b = false

    for n in ns:

        if n ! = 0 and b:

            su == 0

            sk += 1

            b = false

            break

        if sk == 5:

            ps = "no"

            break

        su += n

        if abs(su) > abs(sm):

            ps = "no"

            break

        if su == sm:

            b = true

    print(ps)

else:

    print("no")

объяснение: