Показать сообщение отдельно
  #5  
Старый 12.11.2011, 21:41
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну и в чем проблема?
Сначала находишь столбец с положительыми элементами.
Потом увеличиваешь матрицу на один стлобец и сдвигаешь все слобцы в право на 1 начиная с найденного. Ну и потом заполняешь этот столбец единицами.
Ответить с цитированием