Дано отрицательное число − 12 10 . в восьмиразрядном представлении:

12 в двоичном виде: 1*2^3 + 1*2^2 + 0*2^1 + 0*2^0 = 1100

запишем как отрицательное в прямом коде (старший разряд - знак (1), остальные без изменений):

1000 1100

в обратном коде (старший - знак, остальные инвертируются):

1111 0011

в дополнительном коде (обратный код + 1)

1111 0100

Влодку сначала садятся один купец и один разбоник перебираются на другой берег остается разбойник купец возвращаетя обратно забирает разбойника едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает купца едут на другой берег там высажиается купец разбойник возвращается забирает разбойника едут на другой берег и высаживаются оба лодка совершила 9 рейсов

program xxx;

  var i, n : integer

                    d : array[1..30] of real;

begin

  write ('введите разметность массива n=');

  readln(n);

  writeln(''введите элементы массива d: ');

  for i: =1 to n do

        readln(d[i]);

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

  for i: =1 to n do

      write(d[i]);

  for i: =1 to n do

      if d[i] mod 3 = 0 then d[i]: = 2 * d[i];

  writeln ('полученный массив d: ');

  for i: =1 to n do

      write(d[i]);

  readln

end.