Ответ: одна буква несет 5 бит информации.
МС Эксель? у меня такой нет так ты с радостью помог
Наливаете полный сосуд 5 литров и переливаете в сосуд 7 литров. в сосуде 7 литров останется 2 свободных литра, потом вы наливаете полный сосуд 5 литров и переливаете в сосуд 7 литров.в сосуде 7 литров останется 4 свободных литра, потом наливаете полный сосуд 5 литров и переливаете в сосуд 7 литров. в сосуде 7 литров будет налит 1 литр, потом наливаете полный сосуд 5 литров и все. в сосуде7 литров будет один литр, а в сосуде 5 литров будет 5литров.
Ну во-первых <span>max:=a[1]; нужно задать после того как массив готов!
а вместо этого
</span>for i:=(1+b) to (n+b) do
begin
if a[i] = max then begin
a[i+1]:=a[i];
a[i]:=-5;
b:=b+1;
end
else
a[i]:=a[i+b];
<span>end;
</span>Попробуй это
b:=-50; for i:=1 to n do<span> if a[i]:=max then a[i]:=a[i]+b;</span>