---

Функция НайтиСмешанныеСлова(Текст)
    Результат = Новый Массив;
    ТекущееСлово = "";
    ЕстьКириллица = Ложь;
    ЕстьЛатиница = Ложь;
    
    Для Индекс = 1 По СтрДлина(Текст) Цикл
        Символ = Сред(Текст, Индекс, 1);
        Код = КодСимвола(Символ);
        ЭтоКириллица = (Код >= 1040 И Код <= 1103) ИЛИ Код = 1025 ИЛИ Код = 1105;
        ЭтоЛатиница = (Код >= 65 И Код <= 90) ИЛИ (Код >= 97 И Код <= 122);
        
        Если ЭтоКириллица ИЛИ ЭтоЛатиница Тогда
            ТекущееСлово = ТекущееСлово + Символ;
            Если ЭтоКириллица Тогда ЕстьКириллица = Истина; КонецЕсли;
            Если ЭтоЛатиница Тогда ЕстьЛатиница = Истина; КонецЕсли;
        Иначе
            Если ЕстьКириллица И ЕстьЛатиница Тогда
                Результат.Добавить(ТекущееСлово);
            КонецЕсли;
            ТекущееСлово = "";
            ЕстьКириллица = Ложь;
            ЕстьЛатиница = Ложь;
        КонецЕсли;
    КонецЦикла;
    
    Если ЕстьКириллица И ЕстьЛатиница Тогда
        Результат.Добавить(ТекущееСлово);
    КонецЕсли;
    
    Возврат Результат;
КонецФункции