[Delphi]StringGrid - нужно отредактировать код

[om3n]

Мне нужно выполнить задания:

1. Заменить четный элемент каждого столбца максимальным по модулю
2. Поменять местами первый и средний столбцы.

У меня есть исходник похожего задания:

1. Заменить четный элемент каждой строки нулем
2. Поменять местами третий и последний столбцы.

Вот он:

procedure TForm1.Button1Click(Sender: TObject);
const n=5; m=3;
var
a:array[1..n,1..m] of integer;
b:array[1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(20);
StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j] mod 2 = 0 then a[i,j]:=0;
StringGrid2.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;
for i:=1 to n do
for j:=1 to m do
b[i]:=a[i,3];
a[i,3]:=a[i,5];
a[i,5]:=b[i];
StringGrid3.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;
end;
end.

Помогите пожалуйста отредактировать код к моему заданию.

[alex_fcsm]

for j:=1 to m do
begin
if a[i,j] mod 2 = 0 then a[i,j]:=0;
StringGrid2.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;

Добавьте сюда поиск Максимального элемента по модулю(хотя непонятно по всей матрице надо или по столбцу)

for i:=1 to n do
 begin
  max:=1
 for j:=2 to m do
  if abs(a[i,j])>abs(a[i,max]) then max:=j;
 for j:=1 to m do
  begin
   if a[i,j] mod 2 = 0 then a[i,j]:=abs(a[i,max]);
   StringGrid2.Cells[i-1,j-1]:=IntToStr(a[i,j]);

  end;
 end;

А в чем проблема со средним столбцом

sr:=(m div 2);
if (m mod 2)=0 then inc(sr);

[Mad_Cat]

2. Поменять местами третий и последний столбцы.

for i:=1 to n do
for j:=1 to m do
begin
b[i]:=a[i,3];
a[i,3]:=a[i,m];
a[i,m]:=b[i];
StringGrid3.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;

[om3n]

[Error] Unit1.pas(68): Constant expression violates subrange bounds
Указывает на эту строчку:

a[i,3]:=a[i,n];

У меня и в исходнике была такая ошибка. Я так и не понял почему она появляется.

[alex_fcsm]

У вас матрица N*M так что там a[i,M]

[om3n]

На последний end. ссылается с ошибкой:

[Warning] Unit1.pas(47): FOR-Loop variable 'i' may be undefined after loop

For вроде не применяется после завершения цикла.

[alex_fcsm]

Сообщение от om3n

На последний end. ссылается с ошибкой:

For вроде не применяется после завершения цикла.

Телепаты в отпуске. Код выкладывайте

[om3n]

Извиняюсь

procedure TForm1.Button1Click(Sender: TObject);
const n=5; m=3;
var
a:array[1..n,1..m] of integer;
b:array[1..m] of integer;
i,j,max:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(20);
StringGrid1.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;

for j:=1 to m do
begin
if a[i,j] mod 2 = 0 then a[i,j]:=0;
StringGrid2.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;

for i:=1 to n do
 begin
  max:=1;
 for j:=2 to m do
  if abs(a[i,j])>abs(a[i,max]) then max:=j;
 for j:=1 to m do
  begin
   if a[i,j] mod 2 = 0 then a[i,j]:=abs(a[i,max]);
   StringGrid2.Cells[i-1,j-1]:=IntToStr(a[i,j]);

  end;
 end;

 for i:=1 to n do
for j:=1 to m do
begin
b[i]:=a[i,3];
a[i,3]:=a[i,m];
a[i,m]:=b[i];
StringGrid3.Cells[j-1,i-1]:=IntToStr(a[i,j]);
end;

end.

[alex_fcsm]

StringGrid3.Cells[j-1,i-1]:=IntToStr(a[i,j]);

---->>
Определитесь с индексами: должны идти I,J

[Mad_Cat]

Уберите переменную i из глобальных. Или не обращайте на warning внимание