Какое количество информации необходимо для кодирования каждого из 256 символов алфавита ?

1 байт или 8 бит  n=2^i ; n=256, i=8 

//pascal //заполнение массива случайными числами var   a: array[1..255] of integer;   i, sum, n: integer; begin write('введите n: '); readln(n); randomize; //в pascalabc.net можно убрать for i : = 1 to n do begin   a[i] : = random(21)-10; //случайные числа от -10 до 10   if ((a[i] mod 2 < > 0) and (a[i] < 0)) then sum : = sum + a[i];   write(a[i], ' '); end; writeln; writeln('сумма отрицательных и нечетных = ', sum); readln; end.  //pascal //заполнение массива с клавиатуры var   a: array[1..255] of integer;   i, sum, n: integer; begin write('введите n: '); readln(n); for i : = 1 to n do begin   write('a[', i, '] = '); readln(a[i]);   if ((a[i] mod 2 < > 0) and (a[i] < 0)) then sum : = sum + a[i]; end; writeln; writeln('сумма отрицательных и нечетных = ', sum); readln; end. 

Для начала продумаем наше решение. сначала заполним массив случайными числами с цикла и сразу в нем найдем сумму его чисел, чтобы потом найти среднее арифметическое, а потом уже в следующем цикле будем искать числа больше или меньше среднего арифметического.для того чтобы решить нам понадобятся следующие переменные : 1. переменная  mass  — для нашего массива2. переменная  more  — для чисел больше среднего арифметического3. переменная  less  — для чисел меньше среднего арифметического4. переменная  aver  — для среднего арифметического5. переменная  i  — для цикланачнем мы с каркаса нашей программы : 123456789101112131415const n = 40; type        massiv = array [1..n] of integer; var        mass: massiv;         more, less, i : integer;         aver : real;         begin        randomize;                   aver : = 0;         more : = 0;         less : = 0; end.