Устудента есть список из четырех вопросов, на один из которых он должен будет ответить. вероятность, что студенту придется отвечать на первый вопрос, равна 0, 3, на второй – 0, 2, на третий – 0, 4, на четвертый – 0, 1. найти энтропию и количество информации, которое получит студент, когда его спросят.

Найдем количество информации, которое получит студент. есть 4 варианта развития событий. по формуле n=2(в степени i), где n - это количество возможных событий, а i - это количество информации, найдем, что i=2 бита.

Const n=10; var a: array[1..10] of   integer;       i: integer;         s,k: real; begin k: =1;   s: =0;   for i: =1 to n do       begin         write ('число = '); readln (a[i]);         if a[i] mod 2 = 0   then s: =s+1 else k: =a[i]*k;       end;     writeln('четных чисел = ',s);     writeln('произведение нечетных = ',k); end.

Type   ta=array[1..10] of integer; var f: text; s: string; i,k: integer; ar: ta; procedure change(var ar: ta; i: integer; var k: integer); begin; if (ar[i]> 5) and (ar[i]< 10) then   begin;   ar[i]: =100;     inc(k);   end; end; begin; randomize; k: =0; writeln('first array: '); for i: =1 to 10 do   begin;   ar[i]: =random(30);   write(ar[i]: 4);   change(ar,i,k);   end; assign(f,'text.txt');   rewrite(f);   writeln(f,'final array: ');     for i: =1 to 10 do     write(f,ar[i]: 4);       writeln(f,' ');       writeln(f,'changes: ',k);   close(f); end.