Модераторы нужна ваша ! объём сообщения содержащего 11264 символа равен 11 кбайт. определите максимальную мощность алфавита который мог быть использован для кодирования этого сообщения? какова минимальная мощность алфавита использование которого к такому же информационному объему закодированного сообщения?

k = 11264

I = 11 КБ = 11264 бит.

N-? (Мощность алфавита)

I = k * i

90112 = 11264 * i  =>  i = 8

N =

N = 256

1)
const n=?; //Сюда поставить любое нужное n
Var a:array[1..n] of real;
i,x,k:integer; s:real;
Begin
 for i:=1 to n do
   begin
    readln(x);
    a[i]:=x;
   end;
 s:=0;
 k:=0;
 for i:=1 to n do
  begin
   s:=s+a[i];
   k:=k+1;
  end;
 s:=s/k;
 for i:=1 to n do
  if a[i]<s then
    write(a[i],', ');
 s:=s/k;
 for i:=1 to n do
  if a[i]<s then
    write(a[i],', ');
 readln;
End.

2)
Const n=?;
Var a:array[1..n] of integer;
i,max,min:integer;
Begin
 for i:=1 to n do
   begin
    readln(x);
    a[i]:=x;
   end;
 min:=a[1];
 max:=a[1];
 for i:=1 to n do
   if (i mod 2)=0 then
     if a[i]>max then
       max:=a[i];
 for i:=1 to n do
   if (i mod 2)<>0 then
     if a[i]<min then
       min:=a[i];
 writeln('max=',max);
 writeln('min=',min);
 readln;
End.

См. картинку во вложении.
ответ: 1

Такие задания решаются с трассировочной таблицы.
Выписываешь все переменные, которые есть в программе (если массив, то отдельно выписываешь каждую ячейку). Сколько переменных - столько столбцов в таблице. Потом притворяешься компьютером и выполняешь программу команда за командой, при этом записывая все изменения значений переменных по такому правилу:
1) если значение переменной ещё не определено, ничего не пишешь (оставляешь пустые клетки);
2) если значение переменной изменилось в ходе выполнения команды - пишешь новое значение (в моей таблице выделены жёлтым);
3) если значение переменной НЕ изменилось в ходе выполнения команды - пишешь старое значение (то есть переписываешь его из клетки, которая на одну выше).
В конце смотришь, значение какой переменной должен напечатать компьютер - это и есть ответ.