Вводится последовательность из n целых чисел. Найти наибольшее количество одинаковых...

Question

Вводится последовательность из n целых чисел. Найти наибольшее количество одинаковых членов последовательности.

Comments

да

Answer 1

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadlnString.ToIntegers.GroupBy(t->t).Select(t->(t.Key,t.Count))
      .OrderByDescending(t->t[1]).ThenBy(t->t[0]);
  var k:=a.First[1];
  a.Where(t->t[1]=k).Select(t->t[0]).Print(',');
  Writeln(' - ',k,' раз(а)')
end.

Примеры
3 6 2 8 4 6 2 7 4 12 8 3 5
2,3,4,6,8 - 2 раз(а)

3 10 1 5 -8 -7 9 6 -4 -2 6 -2 9 -2 -2 5 -2 2 -5 6
-2 - 5 раз(а)