Delphi - двумерные массивы

[ralex35]

переместить максимальный элемент в правый верхний угол а минимальный в левый нижний

а у меня наоборот макс в левом верхнем а мин в правом нижнем
что исправить в коде?

procedure TForm1.Button1Click(Sender: TObject); 
var i, j,max,min: Integer; 
a:array[0..5,0..4] of integer; 
begin 
max:=-maxint; 
min:=maxint; 
with StringGRid1 do 
begin 
for i:=0 to RowCount-1 do 
for j:=0 to ColCount-1 do 
a[j,i]:=strtoint(Cells[j,i]); 
for i:=0 to RowCount-1 do 
for j:=0 to ColCount-1 do 
if a[j,i]>max then max:=a[j,i]; 
for i:=0 to RowCount-1 do 
for j:=0 to ColCount-1 do 
if a[j,i]<min then min:=a[j,i]; 
Cells[0,0]:=inttostr(max); 
Cells[5,4]:=inttostr(min); 

{ for i:=1 to RowCount-1 do 
begin 
for j:=1 to ColCount-1 do 
begin 
Cells[j,i]:=inttostr(k) 
end; 
inc(k); 
end; } 
{for i:=0 to RowCount-1 do 
begin 
k:=0; 
for j:=0 to ColCount-1 do 
begin 
if Cells[j,i]='0' then inc(k); 
end; 
if k=0 then 
StringGrid1.rows[i].Clear; 
end; } 
end; 
end; 

end.

[Serge_Bliznykov]

а как Вы учитываете, что в массивах принято индексировать сначала строки, потом столбцы (ну, например, A[2,5] - это элемент во 2-й строке, 5-й столбец) ?!

А в StringGrid'е индексация другая - сначала указывается номер столбца, потом номер строки.

и постановка задачи, так же вызывает вопросы.

переместить максимальный элемент в правый верхний угол а минимальный в левый нижний

что значит - "переместить" ? А что будет на месте, где стоял максимальный элемент? А куда девать элемент, который был в правом верхнем углу?

Скажите, Вы можете привести задание в точности так, как Вам его дали?

[sasha27]

вот задание:
Переместить максимальный элемент матрицы F (6*5) в правый верхний угол, а минимальный элемент- в левый нижний угол. Значения элементов матрицы F вводятся с использованием компонента StringGrid.

[ralex35]

да,задание такое

[Аватар]

Клоны пошли. sasha27 и ralex35, какой клон забанить? Правилами форума создание клонов запрещено

[Serge_Bliznykov]

хорошо. раз не удалось выяснить, как представлял себе задание тот, кто его придумывал,
давайте попробуем разобраться, как Вы себе это представляете. Согласны?


тогда, допустим, дана матрица (3X5):

10 20  7  8  9
11 12  6  5  4
14 15 16 14 11

выполните "Переместить максимальный элемент матрицы в правый верхний угол, а минимальный элемент- в левый нижний угол"

ну и чтобы окончательно расставить все точки на i
сделайте тоже самое для матрицы:

10 88  7  8  9
11 4   6  5  4
14 15 88  4 11