сделать тест
Очень надо
Заранее за ответы

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

Объяснение:

const n=25;

var a:array[1..n] of integer;

   i,j,b,otr:integer;

begin

 randomize;

 writeln('Исходный массив:');

 for i:=1 to n do

 begin

   a[i]:=random(60)-20;

   write(a[i]:4);

 end;

 for i:=1 to n do

 begin

   if a[i]<0 then

     begin

       otr:=a[i];

       break;

     end;

 end;

 writeln(#10,'Первое отрицательное = ',otr);

 for i:=1 to n-1 do

   for j:=i+1 to n do

     if a[i]<a[j] then

       begin

         b:=a[i];

         a[i]:=a[j];

         a[j]:=b;

       end;  

 writeln('Результат сортировки:');

 for i:=1 to n do

 begin

   write(a[i]:4);

 end;  

end.