Добрый день!
Помогите пожалуйста написать не большой код.
Даны k целых чисел. Напишите программу, которая на входе получает строку с k числами, разделенными пробелами, а на выходе выводит число, которое ЧАЩЕ ВСЕГО встречается в списке, при этом:
- если наиболее часто встречается только одно число, то выводить только его,
- если наиболее часто встречаются сразу несколько чисел, то выводить их всех в порядке возрастания.
Заранее большое спасибо!
---
user1831019 Правильно ?

```1c
    МассивЧисел = СтрРазделить(РеквизитК," ",Ложь);
    НовыйСписок = новый СписокЗначений;

    Таблица = новый ТаблицаЗначений;
    Таблица.Колонки.Добавить("Количество",Новый ОписаниеТипов("Число"));
    Таблица.ЗагрузитьКолонку(МассивЧисел,"Количество");

    Для каждого Число из МассивЧисел Цикл
    Масс = Таблица.НайтиСтроки(Новый структура("Количество",Число));
    Если Масс.Количество() > 0 Тогда
    НовыйСписок.Добавить( Масс.Количество(),Число);
    КонецЕсли;
    КонецЦикла;

    НовыйСписок.СортироватьПоЗначению(НаправлениеСортировки.Возр);

    Для каждого знч из НовыйСписок Цикл
    Сообщить(знч.Представление);
    КонецЦикла;
```
---
```1c
    _СтрЧислаЧерезПробел = СтрЗаменить(ЭтотОбъект.СтрЧислаЧерезПробел, ",", ".");
    _Массив = СтрРазделить(_СтрЧислаЧерезПробел, " ");
    _Выражение = СтрСоединить(_Массив, ",");
    Попытка
    _Результат = Вычислить("Макс(" + _Выражение + ")");
    Сообщить(ТипЗнч(_Результат));
    Сообщить(_Результат);
    Исключение
    Сообщить("Не получилось !");
    КонецПопытки
```

1 2 3 4 5 6 1 2 3 4 5
Число
6
---
```1c
    Массив = СтрРазделить(Текст, " ");

    ТЗ = Новый ТаблицаЗначений;
    ТЗ.Колонки.Добавить("Число", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10, 0)));
    ТЗ.Колонки.Добавить("КоличествоДублей", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10, 0)));

    Для Сч = 1 По Массив.Количество() Цикл ТЗ.Добавить() КонецЦикла;

    ТЗ.ЗагрузитьКолонку(Массив, "Число");
    ТЗ.ЗаполнитьЗначения(1, "КоличествоДублей");

    ТЗ.Свернуть("Число", "КоличествоДублей");
    ТЗ.Сортировать("КоличествоДублей Убыв, Число");

    МаксимальноеКоличествоДублей = ТЗ[0].КоличествоДублей;

    Для Каждого Стр Из ТЗ Цикл
    Если Стр.КоличествоДублей < МаксимальноеКоличествоДублей Тогда
    Прервать;
    КонецЕсли;
    Сообщить(Стр.Число);
    КонецЦикла;
```
---
user1831019 Правильно ?

```1c
    МассивЧисел = СтрРазделить(РеквизитК," ",Ложь);
    НовыйСписок = новый СписокЗначений;

    Таблица = новый ТаблицаЗначений;
    Таблица.Колонки.Добавить("Количество",Новый ОписаниеТипов("Число"));
    Таблица.ЗагрузитьКолонку(МассивЧисел,"Количество");

    Для каждого Число из МассивЧисел Цикл
    Масс = Таблица.НайтиСтроки(Новый структура("Количество",Число));
    Если Масс.Количество() > 0 Тогда
    НовыйСписок.Добавить( Масс.Количество(),Число);
    КонецЕсли;
    КонецЦикла;

    НовыйСписок.СортироватьПоЗначению(НаправлениеСортировки.Возр);

    Для каждого знч из НовыйСписок Цикл
    Сообщить(знч.Представление);
    КонецЦикла;
```
---
А чего свой вариант не показал-то?
Вопрос напоминает "покажите мне, как правильно делать детей."
---
Могу предложить следующий код.

```1c
    Функция ТестоваяЗадача(вхДанные)

    тз=новый таблицазначений;
    тз.Колонки.Добавить();
    для каждого ч из СтрРазделить(вхДанные," ",Ложь) цикл
    тз.Добавить()[0]=число(ч);
    конеццикла;
    АД=новый АнализДанных;

    АД.ИсточникДанных=тз;
    АД.ТипАнализа=Тип("АнализДанныхОбщаяСтатистика");
    АД.НастройкаКолонок[0].ВидДанных=ВидДанныхАнализа.Дискретные;
    статистика=АД.Выполнить();
    ТаблицаЧастот=Статистика.ДискретныеПоля[0].ТаблицаЧастот;
    мЧастота=ТаблицаЧастот[0].Частота;
    ответ=новый массив;
    для каждого запись из ТаблицаЧастот цикл
    если запись.Частота<>мЧастота тогда
    прервать;
    конецесли;
    ответ.Добавить(запись.Значение);
    конеццикла;
    возврат СтрСоединить(ответ,",");
    КонецФункции
```