Тупо арифметика пропорции

(0) Воспользуйся типовой функцией
// Функция выполняет пропорциональное распределение суммы в соответствии
// с заданными коэффициентами распределения
//
// Параметры:
//        ИсхСумма - распределяемая сумма
//        МассивКоэф - массив коэффициентов распределения
//        Точность - точность округления при распределении. Необязателен.
//
//    Возврат:
//        МассивСумм - массив размерностью равный массиву коэффициентов, содержит
//            суммы в соответствии с весом коэффициента (из массива коэффициентов)
//          В случае если распределить не удалось (сумма = 0, кол-во коэф. = 0,
//          или суммарный вес коэф. = 0), тогда возвращается значение Неопределено
//
Функция РаспределитьПропорционально(Знач ИсхСумма, МассивКоэф, Знач Точность = 2, ПроверкаНулевыхЗначений=Истина) Экспорт

    Если МассивКоэф.Количество() = 0 Или (ПроверкаНулевыхЗначений И ИсхСумма = 0) Или ИсхСумма = Null Тогда
        Возврат Неопределено;
    КонецЕсли;

    // Массив коэффициентов необходимо упорядочить, поэтому создадим таблицу для распределения
    УпорядоченнаяТаблица = Новый ТаблицаЗначений;
    УпорядоченнаяТаблица.Колонки.Добавить("Коэф", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(17,4)));
    УпорядоченнаяТаблица.Колонки.Добавить("ИсходныйИндекс", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,0)));

    СуммаКоэф  = 0;

    Для К = 0 По МассивКоэф.Количество() - 1 Цикл
        СуммаКоэф = СуммаКоэф + МассивКоэф[К];

        СтрокаТаблицы = УпорядоченнаяТаблица.Добавить();
        СтрокаТаблицы.Коэф = МассивКоэф[К];
        СтрокаТаблицы.ИсходныйИндекс = К;
    КонецЦикла;

    Если СуммаКоэф = 0 Тогда
        Возврат Неопределено;
    КонецЕсли;

    УпорядоченнаяТаблица.Сортировать("Коэф Убыв");

    МассивСумм = Новый Массив(УпорядоченнаяТаблица.Количество());

    Для каждого СтрокаТаблицы Из УпорядоченнаяТаблица Цикл
        // Возвращаемый результат должен быть в том же порядке
        МассивСумм[СтрокаТаблицы.ИсходныйИндекс] = ?(СуммаКоэф <> 0, Окр(ИсхСумма * МассивКоэф[СтрокаТаблицы.ИсходныйИндекс] / СуммаКоэф, Точность, 1), 0);

        ИсхСумма = ИсхСумма - МассивСумм[СтрокаТаблицы.ИсходныйИндекс];
        СуммаКоэф = СуммаКоэф - МассивКоэф[СтрокаТаблицы.ИсходныйИндекс];
    КонецЦикла;

    Возврат МассивСумм;

КонецФункции // РаспределитьПропорционально()