Заполните массив случайными числами в интервале {-100, 100} и представить элементы так, чтобы все положительные элементы стояли в начале массива, а все отрицательные и нули - в конце. вычислите количество положительных элементов.

var

 A, Ap, Ao: array [1..14] of Integer;

 i, c, cp, co: Integer;

 s: Real;

begin

 Randomize;

 WriteLn ('Mассив:');

 for i := Low (A) to High (A) do begin

   A [i] := Random (201) - 100;

   Write (A [i], ' ');

 end;

 cp := 0;

 co := 0;

 for i := Low (A) to High (A) do begin

   if A [i] > 0 then begin

     cp := cp + 1;

     Ap [cp] := A [i];

   end else begin

     co := co + 1;

     Ao [co] := A [i];

   end;

 end;

 c := Low (A);

 for i := 1 to cp do begin

   A [c] := Ap [i];

   c := c + 1;

 end;

 for i := 1 to co do begin

   A [c] := Ao [i];

   c := c + 1;

 end;

 WriteLn;

 WriteLn ('Результат: ');

 for i := Low (A) to High (A) do begin

   Write (A [i], ' ');

 end;

 WriteLn;

 WriteLn ('Количество положительных элементов массива = ', cp);

end.

Количество информации определяется величиной, показывающей насколько уменьшилось наше незнание в вопросе.
1. Если на светофоре горит желтый свет и мы не знаем, какой свет горел на нем до желтого, то возможны два исхода - зеленый свет и красный свет. Какой бы из них потом не загорелся, мы получим выбор 1 из 2 возможных. А этому соответствует один бит информации.
2. Если на светофоре горит красный свет и это "нормальный светофор", то мы ЗНАЕМ, что после красного света всегда следует желтый. Поэтому при зажигании желтого света наше незнание не меняется, следовательно, мы получаем ноль бит информации.

№ 14 
i=4
N=2^i=2^4=16
ответ: 16
№ 15
N=2^i
15=2^i
i=примерно 3,900бит
№ 16
без учета ковычек и точки в конце, 27Байт
1 символ=1Байт=8бит
№ 17
Возьмем число 31 т.к в 1м месяце 30-31 дней (28-29 в феврале)
2 в степени 5=32
ответ: 5 бит
№ 18
31 дней * 12 месяцев* 24ч/c=8928≈13бит
№ 19
N=2^b
2=2^1
b=1бит
№ 20
K=15, N=256=2^8
L=k*n=15*8бит=120бит или 15 Байт
№ 21
N=2^b
Мульти - 8=2³; b=3; 200*3=600бит
Пульти - 64=2⁶; b=6; 50*6=300бит
600-300=300 бит, на столько бит сообщение племени Мульти>Пульти
№ 22
3,5КБ=28672бит
b=28672бит/14336=2бит
N=2^b
2²=4 Символа в алфавите
№ 23
1/32МБайт=32Кбайт=32*1024=32768Байт=32768*8бит=262144бит
Один символ = 262144/65536=4бит
N=2^b
b=4
N=2⁴=16