Известно количество учеников во всех классах начальной школы: определите, насколько число учеников в самом многочисленном классе превышает число учеников в самом малочисленном классе.вычислите среднюю наполняемость классов.

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadArrInteger('Вводите численность по классам:',
      ReadInteger('Количество классов:'));
  Writeln('Число учеников в самом многочисленном классе превышает '
      'число учеников в самом малочисленном классе на ',
      a.Max-a.Min);
  Writeln('Средняя наполняемость классов равна ',Trunc(a.Average))
end.

Пример
Количество классов: 6
Вводите численность по классам: 31 29 33 24 30 29
Число учеников в самом многочисленном классе превышает число учеников в самом малочисленном классе на 9
Средняя наполняемость классов равна 29

ответ: 33

Объяснение: В "Ж" можно приехать из Е, К, З, В или Б, поэтому N = NЖ = NЕ + NК + N З + NВ + NБ (1)

NЕ = NБ + NК;

NК = NЗ + NИ;

NЗ = NВ + NГ + NД;

NВ = NА + NБ = 1 + 1 = 2;

NБ = NА = 1.

Добавим еще вершины:

NГ = NА = 1;

NД = NА + NГ = 1 + 1 = 2;

NИ = NЗ + NД = NЗ + 2;

Преобразуем первые вершины с учетом значений вторых:

NЕ = NБ + NК = 1 + 12 = 13 ;

NК = NЗ + NИ = 2NЗ + 2 = 10 + 2 = 12;

NЗ = NВ + NГ + NД = 2 + 1 + 2 = 5;

NВ = NА + NБ = 2;

NБ = NА = 1.

Подставим в формулу (1):

N = NЖ = 13 + 12 + 5 + 2 + 1 = 33

ответ: 33

Объяснение: В "Ж" можно приехать из Е, К, З, В или Б, поэтому N = NЖ = NЕ + NК + N З + NВ + NБ (1)

NЕ = NБ + NК;

NК = NЗ + NИ;

NЗ = NВ + NГ + NД;

NВ = NА + NБ = 1 + 1 = 2;

NБ = NА = 1.

Добавим еще вершины:

NГ = NА = 1;

NД = NА + NГ = 1 + 1 = 2;

NИ = NЗ + NД = NЗ + 2;

Преобразуем первые вершины с учетом значений вторых:

NЕ = NБ + NК = 1 + 12 = 13 ;

NК = NЗ + NИ = 2NЗ + 2 = 10 + 2 = 12;

NЗ = NВ + NГ + NД = 2 + 1 + 2 = 5;

NВ = NА + NБ = 2;

NБ = NА = 1.

Подставим в формулу (1):

N = NЖ = 13 + 12 + 5 + 2 + 1 = 33