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

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

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

 

program qwe;

uses crt;

var  c, s, i: integer; y: real;

 

begins: =0; c: =0; for i: = -2 to 27 dobegins: =s+i; c: =c+1; y: =s/c; end; writeln('srednee arifmeticheskoe=',y);

readln; end.

вот так вот должна быть 1 . ты ни где не илпользовал(а) счетчик, а это неправильно=) в этом твоя и была ошибка=)