Var
m: array [1..31] of integer; //заполненный массив
sr: real; //средняя сумма
sum: integer; //сумма всех элементов
i: integer;
a: integer;//значений выше
b: integer;//значений ниже
c: integer;//равных среднему
begin
for i := 1 to 31 do
sum := sum + m[i];
sr := sum / 31;
for i := 1 to 31 do
if m[i] > sr then
a := a + 1
else if m[i] < sr then
b := b + 1
else c := c + 1;
writeln(a);
writeln(b);
writeln(c);
<span>end.</span>
Ассемблер (Транслятор исходного текста программы)
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.