Изображение прикреплено. Формула написана наверху.
Она работает в режиме онлайн:D
______________________________
Var
a: array[1..10] of integer;
i, j, temp: integer;
begin
randomize;
for i := 1 to 10 do
begin
a[i] := random(100,999);
write(a[i]:3);
end;
writeln;
for i := 1 to 10 - 1 do
for j := i + 1 to 10 do
if a[i] > a[j] then
begin
temp := a[i];
a[i] := a[j];
a[j] := temp;
end;
for i := 1 to 10 do
write(a[i]:3);
end.
31=2^4+2^3+2^2+2^1+2^0=11111
52=2^5+2^4+2^2=110100
25|12|6|3|1|0
——————
1__0_0_1_1_ ; 25=11001
34|17|8| 4 |2| 1 |0
——————————
0_1__0_0_0_1
34=100010