Pascal ABC
Var
A:integer;
Begin
Write('A = ');Read(A);
Write(A div 10,'+',A mod 10,' = ',(A div 10)+(A mod 10))
End.
.................................
Сумма чисел интервала (-6;6] = 6
Целых чисел в этом интервале 12.
Таким образом,среднее арифметическое 6/12 = 1/2