Помогите пожалуйста с заданием на Delphi

[bilbas]

Всем привет. Помогите пожалуйста с заданием на Delphi, на работе попросили помощи мама одной студентки,а так как сам имел дело только с php решил попросить помощи у вас.

Вообщем нужна программа поиска минимального элемента в матрице по столбцам. Массив 3x3. Тип элементов intenger.

[Neeter]

Вот исходник. Написан в Delphi 2009.

[bilbas]

Спасибо. Только появилась проблемка, студентка не договорила что результат должен выводиться в одномерную матрицу.Если не сложно выручите еще разок.

[Neeter]

результат должен выводиться в одномерную матрицу

Т.е. одномерный массив?
Но зачем, если результат - одно число?

[bilbas]

Там результат по столбцам должен быть, то есть минимальное число в каждой строке - три числа.И эти три числа вывести как я понял в одномерный массив.

[VadEr]

Замени процедуру поиска на следующий:

procedure TForm1.bt_1Click(Sender: TObject);
var
 i, j: integer;
 min: integer;
 b: array[0..2] of integer;
begin
 SetArray(StringGrid1);
 for i := 0 to 2 do
  begin
    min := a[i, 0];
    for j := 0 to 2 do
      if min > a[i, j] then
         min := a[i, j];
    b[i]:= min;
    lb_Min.Caption := lb_Min.Caption + IntTOStr(b[i]) +' ';
  end;
end;

[Neeter]

Вот еще исходник:

[bilbas]

Всем спасибо с меня пиво, вернее со студентки