1) По формуле Шеннона найдём вес одного символа в каждом тексте. В первом тексте вес одного символа равен 8, во втором - 5. Объёмы относятся так же, как и вес символов. Ответ: 1,6
2) Разберёмся с племенем Мульти. Каждый символ кодируется 5 битами, а вес сообщения в 100 символов равен 500 бит.
В племени Пульти Каждый символ кодируется таким же количеством бит, но сообщение в два раза меньше. Ответ: 2
3) 450/150=3 бита на символ
I, k, m, min, max:integer;
a, b:array[1..30000] of integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
max:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
k:=1;
for i:=1 to n do
if ((a[i] mod 2)=0) then begin b[k]:=a[i]; k:=k+1; end;
max:=b[1];
for i:=1 to k do
if max>b[i] then max:=b[i];
writeln(min, ' ', max);
readln;
end.
С) фрагмент .................