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

Ответы 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 раз(а)
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years