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