C++ Напишите программу, в которой сортировка выполняется «методом камня» – самый «тяжёлый» элемент опускается в конец массива

var

  a : array [1..9] integer;

  i : integer;

begin

  for i := 1 to 9 do

    if i mod 3 = 1 then a[i] := i

    else if i mod 3 = 2 then a[i] := sqr (i - 1)

    else a[i] := a[i - 1] div i;

  for i := 1 to 9 do

    write (a[i], ' ');

end.

 

var

  b, a : array [1..15] of integer;

  i, sa, sb : integer;

begin

  randomize;

  sa := 0; sb := 0;

  for i := 1 to 15 do

  begin

    a[i] := trunc (random (100)) + 1;

    write (a[i], ' ');

    sa := sa + a[i];

  end;

  writeln;

  for i := 1 to 15 do

  begin

    b[i] := sqr (a[i]) - a[i]);

    write (b[i], ' ');

    sb := sb + b[i];

  end;

  writeln;

  writeln (abs (sb - sa));

end.

  

ответ: 1111011111001011
Переводим в десятичную: 
F7CB16 = 15∙163+7∙162+12∙161+11∙160 = 61440+1792+192+11 = 6343510 
Потом это число переводим в двоичную:
63435/2=31717 (остаток 1)
31717/2=15858 (остаток 1)
15858/2=7929 (остаток 0)
7929/2=3964 (остаток 1)
3964/2=1982 (остаток 0 )
1982/2=991 (остаток 0)
991/2=495 (остаток 1)
495/2=247 (остаток 1)
247/2=123 (остаток 1)
123/2=61 (остаток 1)
61/2=30 (остаток 1)
30/2=15 (остаток 0)
15/2=7 (остаток 1)
7/2=3 (остаток 1)
3/2=1 (остаток 1)
Последний ответ 3/2=1 - эту единицу берём и наоборот собираем остатки.