Может ли в строке быть столько же символов, что и в абзаце?

Число 113: для него прямой, обратный и дополнительный коды совпадают, так как оно положительное.

113(10)=01110001(2)

Число (-36):

Прямой код: 36(10)=00100100(2)

Обратный код (код, в котором меняем 0 на 1, а 1 на 0 в прямом коде):

-36(10) - обратный код 11011011(2)

Дополнительный код (к младшему разряду обратного кода прибавляем 1):

-36(10) - дополнительный код 11011100(2) - это число -36 в доп.коде

Сложим 113+(-36) в двоичных кодах:

01110001(2)+11011100(2)=1 0100 1101(2). Старшую единицу отбрасываем, получаем:

01001101(2)=77(10)

Проверим: 113-36=77 в десятичной с/с

Const n=15; 
var a:array[1..n] of integer;
i,s:integer; sr:real;
begin
Randomize;
writeln('Массив:');
for i:=1 to n do
 begin
 a[i]:=random(21);
 write(a[i]:3);
 end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
sr:=s/n;
writeln('Среднее арифметическое = ',sr:6:2);
writeln('Номера элементов, больших среднего арифметического:');
for i:=1 to n do
 if a[i]>sr then write(i:3);
writeln;
end.

Пример:
Массив:
  9 19 14 8 7 10 5 10 6 14 15 2 11 17 13
Среднее арифметическое = 10.67
Номера элементов, больших среднего арифметического:
  2 3 10 11 13 14 15