Как пропорционально распределить сумму

Функция пропорционально распределяет сумму на необходимое количество.

Функция РаспределитьПропорционально(Знач ИсхСумма, Количество, Знач Точность = 2)
	
	МассивСумм = Новый Массив;
	
	Сумма = Окр(ИсхСумма/Количество, Точность);
	ИтоговаяСумма = 0;
	
	Для СЧ = 1 По Количество-1 Цикл
		МассивСумм.Добавить(Сумма); 
		ИтоговаяСумма = ИтоговаяСумма + Сумма;
	КонецЦикла;
	
	МассивСумм.Добавить(ИсхСумма - ИтоговаяСумма);
	
	Возврат МассивСумм;
	
КонецФункции