минимумы и максимумы

[Delphin-666]

Здравствуйте. необходимо найти минимальные значения в каждой строке матрицы и максимальные в каждом столбце. Проблема в том, что мой код работает исключительно для квадратных матриц... При прямоугольных выдает неверные значения (и неверное количесвто значений, т.е. не совпадает кол-во например строк и выданных значений)
Вот мой код.

procedure TForm1.Naiti1Click(Sender: TObject);
var
Str: array[1..100,1..100] of integer;
mn_s,mx_s: Longint;
InB: Longint;
InA: Longint;
MxB: Longint;
MxA: Longint;
MnMxA:Array[1..100] of integer;
MxMnB:Array[1..100] of integer;
begin

MxB:=Matrica.ColCount-1; {число столбцов}
MxA:=Matrica.RowCount-1; {число строк}

{запись из таблицы в числовой массив}
For InA:=1 to MxA do
For InB:=1 to MxB do
Str[InA, InB]:=StrToInt(Matrica.Cells[InA, InB]);
Listbox1.Clear;
Listbox3.Clear;
//минимальное в строках
for InB:=1 to MxB
do begin
mn_s:=Str[1,InB];
for InA:=1 to MxA
do if Str[InA,InB] < mn_s
then begin
mn_s:=Str[InA,InB];
MxMnB[InB]:=mn_s;
end;
ListBox1.Items.Add(inttostr(mn_s));
end;
//максимальное в столбцах
for InA:=1 to MxA
do begin
mx_s:=Str[InA,1];
for InB:=1 to MxB
do if Str[InA,InB] > mx_s
then begin
mx_s:=Str[InA,InB];
MnMxA[InA]:=mx_s;
end;
ListBox3.Items.Add(inttostr(mx_s));
end;
end;

[VintProg]

А эти функциями не пользовался low high?

[Delphin-666]

то есть создать например несколько массивов (число которых равно числу строк), запхать туда значения и искать с помощью функции минимум в них? я так пробовал. результат аналогичный. для квадратных матриц всё чудесно, но стоит сделать так чтобы число строк или столбцов разнилось, то уже ппц...

[VintProg]

но стоит сделать так чтобы число строк или столбцов разнилось, то уже ппц...

Сделай так чтобы не разносилися.

[Delphin-666]

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

Сделай так чтобы не разносилися.

да, сделать так чтобы матрица была исключительно квадратной - это самый легкий путь, но мне необходимо рассмотреть для всех матриц.

[Serge_Bliznykov]

{запись из таблицы в числовой массив}
  for InA := 1 to MxA do
    for InB := 1 to MxB do
      Str[InA, InB] := StrToInt(Matrica.Cells[InB, InA]);

в этом "странном" стрингриде сначала идут столбцы, потом строки..

p.s. и не забывайте оформлять код тегом [СODE]..[/СODE] (кнопка с "решёточкой" - #)


_________________
Добавлено
о... А дальше всё тоже перепутано...
вот рабочий код:

procedure TForm1.Naiti1Click(Sender: TObject);
var
  Str: array[1..100, 1..100] of integer;
  mn_s, mx_s, rr: Longint;
  InB: Longint;
  InA: Longint;
  MxB: Longint;
  MxA: Longint;
  MnMxA: array[1..100] of integer;
  MxMnB: array[1..100] of integer;
begin

  MxB := Matrica.ColCount - 1; {число столбцов}
  MxA := Matrica.RowCount - 1; {число строк}

  {запись из таблицы в числовой массив}
  for InA := 1 to MxA do
    for InB := 1 to MxB do
      Str[InA, InB] := StrToInt(Matrica.Cells[InB, InA]);
  Listbox1.Clear;
  Listbox3.Clear;

//минимальное в строках
  for InA := 1 to MxA
    do begin
    mn_s := Str[InA, 1];
    for InB := 1 to MxB
      do if Str[InA, InB] < mn_s
      then begin
        mn_s := Str[InA, InB];
        MxMnB[InA] := mn_s;
      end;
    ListBox1.Items.Add(inttostr(mn_s));
  end;

//максимальное в столбцах
  for InB := 1 to MxB
    do begin
    mx_s := Str[1, inB];
    for InA := 1 to MxA
      do if Str[InA, InB] > mx_s
      then begin
        mx_s := Str[InA, InB];
        MnMxA[InB] := mx_s;
      end;
    ListBox3.Items.Add(inttostr(mx_s));
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i, j: integer;
begin
  for i := 0 to Matrica.RowCount - 1 do
    for j := 0 to Matrica.ColCount - 1 do
      Matrica.Cells[j, i] := IntToStr(i * 20 + j);
end;

[Delphin-666]

Serge_Bliznykov, сказать спасибо, значит не сказать ничего... Вы просто избавили меня от еще нескольких дней мучения. Можно только еще спросить, как запомнить координаты найденных чисел, то бишь в какой строке и стобце они имеют место быть.

[Serge_Bliznykov]

не за что!

как запомнить координаты найденных чисел, то бишь в какой строке и стобце они имеют место быть.

это несложно.
Чуть сложнее Вам придумать, где их хранить...
Можно массивы MxMnA и MxMnB сделать двухмерными и сохранять там.
А можно банально в тот же ListBox писать....
Тогда это вообще проще простого.

вот, на примере //минимальное в строках

//минимальное в строках
  for InA := 1 to MxA
    do begin
      minIndex := 1;
      mn_s := Str[InA, 1];
      for InB := 1 to MxB
        do if Str[InA, InB] < mn_s
        then begin
          mn_s := Str[InA, InB];
          minIndex := InB;
          MxMnB[InA] := mn_s;          
        end;
    ListBox1.Items.Add('В строке '+IntToStr(InA)+
         ' минимальная величина в столбце '+IntToStr(minIndex)+' равна '+ inttostr(mn_s));
  end;

[Delphin-666]

бесподобно! Именно в листбокс я и планировал выводить это! Спасибо еще раз!

[Serge_Bliznykov]

Delphin-666, проблему нахождения наибольшего среди минимумов и наименьшего среди максимумов решили?
Тему можно считать закрытой?