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