Задача на двумерный массив Delphi!

[Kate23]

Дан двумерный массив размером n*m, заполненный случайным образом.
-Заменить максимальный элемент каждой строки нулем
-Вставить после каждого столбца, содержащего максимальный элемент массива, столбец из нулей.

[arrowsf1]

воображения на пункт 2 не хватает. Есть подробное описание

сказка детская 100рублей

[Hacker19_90]

-Заменить максимальный элемент каждой строки нулем

for i := 1 to n do
begin
    max := 1;
    for j := 2 to m do
        if m[max] < m[j] then max := j;
    m[max] := 0;
end;

[Kate23]

PHP код:

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
var
i,j,n,m,max:integer;
a,b:array[0..30,0..30]of integer;
begin
Randomize;
n:=strtoint(Edit1.Text);
m:=strtoint(Edit1.Text);
for i:=0 to n-1 do
  for j := 0 to m-1 do
    a[i,j]:=Round(sin(Random(100))*100);
 StringGrid1.RowCount:=n+1;
 StringGrid1.ColCount:=m+1;
StringGrid2.ColCount:=n+1;
StringGrid2.RowCount:=m+1;
 with stringGrid1 do
Begin
  i:=0;
  for j := 1 to RowCount do
    Cells[i,j]:=InttoStr(j);
    j:=0;
    for i := 1 to ColCount do
      Cells[i,j]:=IntToStr(i);
      end;
      with StringGrid1 do
    for i := 1 to n do
    for j := 1 to m do
    Cells[j,i]:=Inttostr(a[i-1,j-1]);

begin
 for i := 1 to n do
begin
    max := 1;
    for j := 2 to m do
        if m[max] < m[j] then max := j ;
    m[max] := 0;
Cells[j,i]:=Inttostr(b[i-1,j-1]);
end;
end; 


проверите...

[Vanta11a]

-Заменить максимальный элемент каждой строки нулем

Код привели выше

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

Для того, чтобы все было "ровно", нужно предусмотреть худший вариант, при котором в каждом из столбцов исходной матрицы содержится макс. элемент, тогда объявлять нужно матрицу с количеством столбцов 2*n. Количество "открытых" столбцов хранить в отдельной переменной.