[Delphi] В матрице обнулить все элементы, расположенные после максимального в каждом столбце

[Volodyajke]

Здравствуйте. Помогите пожалуйста
В матрице размерностью nxm обнулить все элементы, расположенные после максимального элемнте в каждом столбце.

procedure TForm3.BitBtn1Click(Sender: TObject);
var n,m,i,j:Byte;
max:Real;
begin
n:=stringGrid1.RowCount;
m:=stringGrid1.ColCount;
max:=StrToFloat(StringGrid1.Cells[0,0]);
for i:=0 to n-1 do
for j:=0 to m-1 do


    if StrToFloat(StringGrid1.Cells[j,i])>max then
  max:=StrToFloat(StringGrid1.Cells[j,i]);

end;

[rubius2008]

for i:=0 to n-1 do begin
  jmax:=0;
  for j:=1 to m-1 do
    if StrToFloat(StringGrid1.Cells[j,i])>StrToFloat(StringGrid1.Cells[jmax,i]) then jmax:=j;
  for j:=jmax+1 to m-1 do StringGrid1.Cells[j,i]:='0';
end;

[Serge_Bliznykov]

1) ищите не максимальный элемент, а его ИНДЕКС

2) в данном коде Вы идёте в "правильном порядке"
(внешний цикл по I перебирает строки, внутренний по J - перебирает знаяения в строке от 1-го столбца до последнего).
но, тем самым, вы ищете максимальный элемент в строке.
а если я правильно понял задание, Вам нужно обнулить элементы в столбце после максимального.
поясню на примере задачу, как я её понял.
пусть есть матрица (красным я выделил максимальные элементы В СТОЛБЦЕ):

1 2 3 7
5 3 2 6
4 7 1 5 
6 1 0 8
2 4 2 4

после обнуления:

1 2 3 7
5 3 0 6
4 7 0 5 
6 0 0 8
0 0 0 0

[Volodyajke]

1 2 3 7
5 3 2 6
4 7 1 5 
6 1 0 8
2 4 2 4

после обнуления

1 2 3 7
5 3 0 6
4 7 0 5 
6 0 0 8
0 0 0 0

[Volodyajke]

Я понял спасибо! по столбцам получится вот так:

for j:=0 to m-1 do begin
  jmax:=0;
  for i:=1 to n-1 do
    if StrToFloat(StringGrid1.Cells[j,i])>=StrToFloat(StringGrid1.Cells[j,jmax])
    then jmax:=i;
  for i:=jmax+1 to n-1 do StringGrid1.Cells[j,i]:='0';
end;

[Serge_Bliznykov]

после обнуления

1 2 3 7

ну, конечно же. согласен.
сейчас поправлю в исходном сообщении...