Матрица [Delphi]

[StudeHt]

Здравствуйте уважаемые эксперты. Прошу помощи с решением следующей задачи:Задана матрица размером NxM. Получить массив B, присвоив его k-му элементу значение 0, если все элементы k-го столбца матрицы нулевые, и значение 1 в противном случае. Вот мой код(он во вложении). Проблема заключается в том, что я решил добавить возможность ручного и рандомного заполнения матрицы, после чего программа начала выдавать не понятные мне результаты При рандомном заполнении в искомый массив выводятся всегда 1, не зависимо от исходной матрицы.. Да и при ручном заполнении что-то не так считается.. Массив должен заполняться исходя из столбцов, а заполняется по сумме строк Прошу Вашей помощи..

[StudeHt]

Неужели никто не подскажет???

[Вавел из ГМТУ]

Ты както странно там всё сделал.. Можно было не вводить какието массивы, а просто работать со СтрингГридом напрямую.

1.

if CheckBoxManualFilling.Checked then
    begin
      for i:=1 to Line do
        for j:=1 to Column do
          Matrix[i,j] := StrToInt(StringGridInitialMatrix.Cells[j,i]);
    end;

Что это? Тоесть если чекбокс "ручное заполнение" сброшен, то массиву никаких значений не будет присвоено.... На самом деле массив будет заполне разным муссором.
Если же выставить этот чекбокс, то всё будет работать как надо.

2.

for i:=1 to Line do
    begin
      Sum:=0;
      for j:=1 to Column do
        Sum:=Sum+Matrix[i,j];
      if Sum=0 then
        Massiv[i]:=0
      else
        Massiv[i]:=1;
    end;

Это не совсем разумно. Может лучше так(на вскидку)?

For x := 1 To 10 Do
For i := 1 To 10 Do If Massiv[x,i] = 1 Then Flag := True;
If Flag = True Then ..... Else .......

Кароче не надо там считать сумму..

[TwiX]

У меня это заработало: