матрица в делфи

[True_girl]

Уважаемые программисты, помогите
Надо в двумерном массиве найти в каждом столбце минимальный положительный элемент, я думала сделать вот так

    for j:=1 to m do
         begin
            min:=a[1,j];
            for i:=1 to n do  begin
                   if a[i,j]<min
                      then
                         min:=a[i,j];      end;
                         StringGrid_b.Cells[0,i-1]:=FloatToStr(min);
           end;

но так не получается, а как надо сделать?

[profi]

Вот тут min:=a[1,j];, можно так min:=a[i,1]; и не дописали условие if (a[i,j]<min)and(a[i,j]>0) then

[True_girl]

такая проблема, в StringGrid_b должен выводиться минимальный элемент каждой строки, а выводиться последний элемент каждой строки, как сделать правильно

[profi]

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

Надо в двумерном массиве найти в каждом столбце минимальный положительный элемент, я думала сделать вот так

, а теперь вот так

в StringGrid_b должен выводиться минимальный элемент каждой строки

Так что вам нужно?

[True_girl]

вообще полное задание звучит так:
Сформировать вектор В(х1,х2...хn), каждый элемент котого равен минимальному положительному элементу соответсвующего столбца матрица А. Найти минимальный положительный элемент матрицы А и его индексы.

Вот, поэтому в каждом столбце матрицы А надо найти минимальный элемент и сформировать внектор В,а меня не получается

[profi]

Ну это так:

    for j:=1 to m do
         begin
            min:=a[1,j];
            for i:=1 to n do  
                   if (a[i,j]<min)and(a[i,j]>0) then
                         min:=a[i,j];      
                         b[j]:=min;
           end;

Вывести индексы минимального элемента думаю не составит труда.

[True_girl]

спасибо огромное за помощь, вот только как это вывести в StringGrid_b, так не получаются

 for j:=1 to m do
         begin
            min:=a[1,j];
            for i:=1 to n do   begin
                   if (a[i,j]<min)and(a[i,j]>0) then
                         min:=a[i,j];
                         b[i]:=min;
                         StringGrid_b.Cells[0,i-1]:=FloatToStr(b[i]);
                        end;
           end;

[profi]

Вместо этого

StringGrid_b.Cells[0,i-1]:=FloatToStr(b[i]);

попробуйте так

StringGrid_b.Cells[0,j-1]:=FloatToStr(b[i]);

[True_girl]

ОГРОМНЕЙШЕЕ ВАМ СПАСИБО