Изменения
→Задача о подсчете числа бит
'''int''' a[1..n] ''//исходный массив частот всех n символов,встречающихся в тексте"
<math>\mathrm{sum}</math> =0;
do
sort(a) ''//сортируем массив по возрастанию''
a[2] = a[1]+a[2]
sum =+ a[2]
<math>\mathrm{n}</math>--
delete(a[1]) ''//убираем из массива ненужный элемент и больше его не рассматриваем''
while <math>\mathrm{n}</math>!=1 ''//пока не останется одна частота в массиве'' '''return''' <math>\mathrm{sum}</math>
