Мистер Фокс разгадывает загадку. На бумаге должно быть 9 чисел в таблице 3 на 3. Всечисла различаются друг от друга. Случилась неприятность, на центральное поле попалавода. После этого прочесть её никак не получается.10 22 139 4 < это таблиц.11 35 27Мистер Фокс знает, какие действия над числами совершались в таблице.1. Сортируем второй столбец по возрастанию.2. Прибавляем к первой строке вторую.3. Сортируем первую строку по возрастанию.4. Вычитаем из второй строки третью5. Сортируем все столбцы по убыванию найти неизвестное число, если после всех действий получилась новаятаблица:17 35 2911 19 27 <это таблиц.-2 -13 -23​

2^n в двоичной системе - это 1 и n нулей после неё. Например, 2^5(10) = 100000(2)
Приведём все степени к основанию 2

2^3702-2^468+2^1620-108

-108 можно представить как -128 + 16 + 4

2^3702-2^468+2^1620-2^7 + 2^4 + 2^2

Теперь выстраиваем степени в порядке убывания:

2^3702+2^1620-2^468-2^7 + 2^4 + 2^2

В выражении два вычитания подряд, избавимся от этого, заменив -2^468 на -2^469 + 2^468

2^3702+2^1620 -2^469+2^468-2^7 + 2^4 + 2^2

2^3702 - 1 единица
2^4 - 1 единица
2^2 - 1 единица

Количество единиц в вычитаниях будет равно разнице степеней. Например 1000000-100=1111

2^1620 -2^469 - количеств единиц 1620-469 = 1151
2^468-2^7 - количество единиц 468-7 = 461
Общее количество единиц равно 3+1151+461 = 1615

Program egor4774442;
uses crt;
const n=9;
var
  e:array[1..n] of integer;
  min, nom,i: integer;
begin
  writeln('*** alphaues is thinking... ***');
  writeln('***          OK             ***');
  randomize;
  for i:=1 to n do
    e[i]:=random(100)-50;
  min:=e[i];
  nom:=1;
  writeln('Элементы массива:');
  for i:=1 to n do
    begin
      if (e[i]<min) and (e[i]>0) then
        begin
          min:=e[i];
          nom:=i;
        end;
      write (e[i]:5);
    end;
  writeln();
  writeln('Наименьший положительный элемент массива:  ',min);
  writeln('Его номер:  ',nom);
end.