Дан двумерный массив ненулевых целых чисел. Определить, сколько раз элементы массива меняют знак (принимая, что массив просматривается построчно сверху вниз, а в каждой строке — слева направо). Язык программирования - C.

В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок.
1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка
2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок
3. Из 112 восьмерок получится 37 девяток и одна восьмерка
4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка
5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8
6. И наконец получаем строку 8998
ответ: 8998

Program znanija;
const
  PRICE_ONE_DISK = 10;
  PRICE_TEN_DISK = 90;
  EMPTY = 0;
  INPUT_MONEY = 'Введите количество денег: ';
  OUTPUT_PRICE = 'Купленно: ';
  OUTPUT_ONE_DISK = ' - по одному диску';
  OUTPUT_TEN_DISK = ' - по десять дисков';
  OUTPUT_MANEY = 'Осталось денег: ';
  CHAR_TABS = Chr(9);
var
  sumMoney : integer;
  countOneDisk : integer := 0;
  countTenDisk : integer := 0;
begin
  write(INPUT_MONEY);
  read(sumMoney);
 
  while((sumMoney - PRICE_TEN_DISK) >= EMPTY) do
  begin
    inc(countTenDisk);
    sumMoney := sumMoney - PRICE_TEN_DISK;
  end;
 
  while((sumMoney - PRICE_ONE_DISK) >= EMPTY) do
  begin
    inc(countOneDisk);
    sumMoney := sumMoney - PRICE_ONE_DISK;
  end;
 
  writeln(OUTPUT_PRICE);
  writeln(CHAR_TABS, countTenDisk, OUTPUT_TEN_DISK);
  writeln(CHAR_TABS, countOneDisk, OUTPUT_ONE_DISK);
  writeln(OUTPUT_MANEY, sumMoney);
end.