(¬a∧¬b∧¬c)∨(a∧b∧¬c) логическую функцию. объясните

Количество информации I, которое несет сообщение о реализация события A равно -ln(p), где p - вероятность события A.

 

Xкр = 27 - количество семян круглой редиски
Xвыт - количество семян плоской редиски
Pвыт - вероятность достать семечко вытянутой редиски равно Xвыт/(Xкр+Xвыт)

I - количество информации, которое несет сообщение о том, что доставли одно семечко вытянутой редиски

Исходя из условий задачи, можем составить уравнение:
I = -ln(Xвыт/(Xкр+Xвыт)) -> 2^-2 = Xвыт/(Xкр+Xвыт), откуда получаем Xвыт = 9
Общее количесво семян равно (Xвыт + Xкр) = 36

Var n, i, min, max, min_i, max_i, tmp: integer; a:array[1..100] of integer;
begin
   readln(n);
   for i := 1 to n do
       read(a[i]);
   min := a[1];
   max := a[1];
   min_i := 1; {номер минимального}
   max_i := 1;
   for i := 2 to n do
   begin
       if min > a[i] then
       begin
          min := a[i];
          min_i := i;
       end;
       if max < a[i] then
       begin
          max := a[i];
          max_i := i;
       end;
   end;
   tmp := a[max_i];
   a[max_i] := a[min_i];
   a[min_i] := tmp;
   for i := 1 to n do
       write(a[i], ' ');
end.