Задача на работу с матрицай...

[Med]

Задача: Заменить нулями эл-ты матрицы, стоящие на пересечении строк и столбцов, в которых имеется хотя бы по одному нулю.

Пару примеров:

1.

1 2 0
0 5 6
7 8 9

вот: программа должна заменить эл-ты "1" и "6" на "0"

2.

1 2 3
4 0 6
0 8 9

вот: программа должна заменить эл-ты "4" и "8" на "0"


Программу я попытался сделать, но при тестировании пришел к выводу, что она работает неверно

Если кто знает как решить, подскажите что нибудь...

свой код программы могу выложить, если надо

а.., еще программу желательно реализовать на делфи

[Serge_Bliznykov]

дополнительный массив использовать можно?

[Serge_Bliznykov]

вот, обошелся без дополнительного массива, применив множества.
пример во вложении. кнопку "Работать!" можно нажимать многократно ;-)
претензии по поводу вывода массивов на канву не принимаются (так же как и претензии по внешнему виду) — это я просто прикалывался Вывод массивов переделаете под себя самостоятельно.

основная идея такая:
две функции перебирают строки/столбцы и возращают True если в строке/столбце есть нули:

function TForm1.IsZero_in_Column(Col: integer): boolean;
var i : integer;
begin
  Result := false;
  i := 1;
  while (i<=M) and (A[Col,i]<>0) do inc(i);
  if (i<=M) then Result := true;
end;

function TForm1.IsZero_in_Row(Row: integer): boolean;
var i : integer;
begin
  Result := false;
  i := 1;
  while (i<=N) and (A[i, Row]<>0) do inc(i);
  if (i<=N) then Result := true;
end;

запоминаем, строки/столбцы с нулями так:

    SetOfZeroRow : set of byte;
    SetOfZeroColumn : set of byte;
...
begin
  SetOfZeroColumn := [];
  SetOfZeroRow := [];
  for i:=1 to N do
    if IsZero_in_Column(i) then 
      SetOfZeroColumn := SetOfZeroColumn + [i];
  for i:=1 to M do
    if IsZero_in_Row(i) then 
      SetOfZeroRow := SetOfZeroRow + [i];

замена происходит так:

  // а вот собственно и замена пересечений на нули:
  for i:=1 to N do
   for j:=1 to M do
     if (i in SetOfZeroColumn) and (j in SetOfZeroRow) then
       A[i,j] := 0;