Question

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

Answer 1

// 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