реализуемо ли Опции

[.helga]

Реализуемо ли это в Делфи??


1 Провести минимальное количество прямых через столбцы и строки матрицы таким образом, чтобы они проходили через все нули, содержащиеся в таблице
2 Найти наименьший из элементов, через которые не проходит ни одна прямая
3 Вычесть его из всех элементов, через которые не проходят прямые
4 Прибавить его ко всем элементам, лежащим на пересечении прямых
5 Элементы, через которые проходит только одна прямая, оставить неизменными

[мисс_граффити]

к сожалению, внесенные изменения не в полной мере решают проблему:

const
     n=5;
     ar:array[1..n,1..n] of byte=((0,1,0,1,0),
                                  (1,1,1,1,1),
                                  (1,0,0,1,0),
                                  (1,1,1,1,1),
                                  (1,0,0,1,0));

можно обойтись вычеркиванием трех строк, а программка предлагает 4 столбца...
может, еще считать количество безнулевых строк и столбцов?