Ребята с самостоялкой! Не будьте равнодушными!

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