Один символ текста обычно кодируется : а.обычным битом в.одним байтом с.буквой d.десятью битами

В) одним байтом; или я что то не поняла!

//pascal abc.net v3.0 сборка 1111 var   i,a,b: integer;   ar: array[1..10] of integer;   procedure odddec(var a,b: integer);     //подпрограмме переданы аргументы a и b //процедура для вычитания в нечётном элементе begin; a: =a-b; end; procedure notoddinc(var a,b: integer); //подпрограмме переданы аргументы a и b //процедура для сложения в чётном элементе begin; a: =a+b; end; begin randomize; readln(a); //ввод a readln(b); //ввод b writeln('array: '); for i: =1 to 10 do //весь массив   begin;   ar[i]: =random(-20,80); //случайные числа от  -20 до  80 включительно   write(ar[i]: 4); //вывод   if odd(i) then odddec(ar[i],b) else notoddinc(ar[i],a);     {если нечётное, то первая процедура, иначе вторая. обращаю внимания на то, что элементы меняются сразу после вывода}   end; writeln; writeln('final array: '); //вывод получившегося массива for i: =1 to 10 do write(ar[i]: 4); end. пример ввода: 20 10 пример вывода: array:   10   16   0   60   23   4   22 -20   4   55 final array:     0   36 -10   80   13   24   12   0   -6   75