program array4x4;
const
D = 4; // размерность массива, можно менять на любое другое
var
A: array [1..D, 1..D] of Integer;
i, j, s, smax, jmax, smin, imin: Integer;
begin
Randomize;
for i := 1 to D do begin
WriteLn;
for j := 1 to D do begin
A [i, j] := Random (21) - 5;
Write (A [i, j] :3, ' ');
end;
end;
smax := 0;
jmax := 0;
for j := 1 to D do begin
s := 0;
for i := 1 to D do begin
s := s + Abs (A [i, j]);
end;
if s > smax then begin
smax := s;
jmax := j;
end;
end;
WriteLn;
WriteLn ('Столбец № ', jmax, ' Сумма модулей = ', smax);
imin := 1;
smin := MaxInt;
for i := 1 to D do begin
if A [i, jmax] < smin then begin
smin := A [i, jmax];
imin := i;
end;
end;
WriteLn ('Наименьший элемент: ', imin, ' : ', jmax, ' Равен = ', smin);
ReadLn;
end.
При N=5 минимальным кол-вом вопросов (при оптимальных условиях) будет 2 вопроса
Объяснение:
Допустим в диапазоне 1-N было выбрано число 4
Задём вопрос "Это число больше 3 (половина возможных чисел)?", получаем ответ "да", потом спрашиваем "это число больше 4 (половина оставшихся чисел)?", получаем ответ "нет", значит раз это число больше 3 и не больше 4, то это и есть 4, остаётся уточнить это, задав 3 вопрос "является ли это число четвёркой"
Допустим выбрано число 1
"Это число больше 3?" - "нет"
"Это число больше 1?" - "нет" -- логично что это число 1
а если бы ответ был бы "да", то осталось бы проверить является ли это число 2, иначе это 3
