Винни пух, придя в гости к кролику, увидел восемь горшочков, пронумерованных от 1 до 8. как сказал кролик, только один из них наполнен мёдом, остальные пустые. какое минимальное количество вопросов(на которые он получит только короткие ответы да или нет) должен задать винни пух кролику, чтобы однозначно определить номер горшочка с мёдом?

2^3 = 8. сообщение в каком горшочке мед несет 3 бита информации. один ответ кролика, так как он в формате да/нет, несет 1 бит информации. 3/1 = 3 вопроса.

Const n = 15; var a: array[1..n] of integer;   i, j, m: integer; begin   // генерация и вывод   randomize;   for i : = 1 to n do a[i] : = random(19)-8;   for i : = 1 to n do write(a[i], ' ');   writeln;       // сортировка   for i : = 1 to n-1 do begin     m : = i;     for j : = i+1 to n do       if a[j] < a[m] then m : = j;             if m < > i then begin       j : = a[m];       a[m] : = a[i];       a[i] : = j;     end;   end;   for i : = 1 to n do write(a[i], ' ');   writeln;       // поиск наибольшей разности   m : = a[2] - a[1];   for i : = 3 to n do     if a[i] - a[i-1] > m then        m : = a[i] - a[i-1];   writeln ('разность = ', m); end.

Uses crt; var a,b: array[1..100] of integer; i,j,k,n: integer; procedure rmassr; begin       for i: =1 to n do begin             a[i]: =random(10);       end; end; procedure rmassy; begin       for i: =1 to n do begin             readln(a[i]);       end; end; procedure rmass(); begin       for i: =1 to n do begin             write(a[i],' ');       end; end; procedure newmass; begin       for i: =1 to n do begin             if a[i] > 0 then b[i]: =a[i];       end;       for i: =1 to n do begin             j: =j+b[i];       end;       writeln('summa = ',j); end; begin clrscr; randomize; write('длина массива  '); readln(n); write('1-random; 2-в ручную'); readln(k); if k = 1 then       rmassr() else rmassy(); rmass(); writeln(); newmass(); readln end.