Отгадывая целое число , задуманное в промежутке от 1 до до 60 , можно задавать вопросы, на который вы получаете ответ да или нет.какое максимальное число вопросов достаточно задать, чтобы наверняка отгадать задуманное число?

N=60 n=2^i 2^i=60 i=6 ответ 6

Uses crt; var a, b, c, i, n, j : integer;     s : array[1..10000] of integer; begin         clrscr;         writeln('введите размер массива');         read(n);         for i: =1 to n do              begin              s[i]: =random(46)-15;               writeln ('s[', i,']=', s[i]);               end;         a: =s[1]; for i: =1 to n do              if s[i]> a then                  begin                  a: =s[i];                 b: =i;                   end;         writeln ('наибольший элемент s[', b, ']=',a); end. p.s. надеюсь на и лучший ответ.

Uses crt; var a, b, c, i, n, j : integer;       s : array[1..10000] of integer; begin         clrscr;         writeln('введите размер массива');         read(n);         for i: =1 to n do              begin              s[i]: =random(46)-15;               writeln ('s[', i,']=', s[i]);               end;         a: =s[1]; for i: =1 to n do              if s[i]> a then                    begin                    a: =s[i];                   b: =i;                     end;         writeln ('наибольший элемент s[', b, ']=',a); end. p.s. надеюсь на и лучший ответ.