Обработка двумерных массивов

[delegate]

В каждом столбце матрицы найти первый отрицательный элемент и вычислить сумму этих элементов.
P.S. заранее благодарен, просьба писать на более простом языке (использую turbo delphi 2006 )

[Stilet]

Ану покажи код, которым ты матрицу вводишь?

[delegate]

var
  Form1: TForm1;
  k,n,m,i,j,S,P:integer;
  x:array[1..5,1..5] of integer;

implementation

{$R *.dfm}

procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
 StringGrid1.RowCount:=SpinEdit1.Value;
end;

procedure TForm1.SpinEdit2Change(Sender: TObject);
begin
 StringGrid1.ColCount:=SpinEdit2.Value;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 n:=SpinEdit1.Value;
 m:=SpinEdit2.Value;
With StringGrid1 do
 begin
  For i:=1 to n do
  For j:=1 to m do
  x[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
  stringgrid1.RowCount:=n;
  stringgrid1.ColCount:=m;
 end;

[Stilet]

procedure TForm1.Button1Click(Sender: TObject);
var b:array of integer; sum:integer;
begin
 n:=SpinEdit1.Value;
 m:=SpinEdit2.Value;
With StringGrid1 do
 begin
  SetLength(b,m);sum:=0;
  ZeroMemory(b,m*sizeof(integer));
  For i:=1 to n do
  For j:=1 to m do begin
   x[i,j]:=StrToInt(StringGrid1.Cells[j-1,i-1]);
   if (x[i,j]<0)and(b[j]=0) then begin b[j]:=x[i,j];sum:=sum+b[j];end;
  end;
  stringgrid1.RowCount:=n;
  stringgrid1.ColCount:=m;
  SetLength(b,0);
  ShowMessage(IntToStr(sum));
 end;

Увидел предлагаемый алгоритм?

[delegate]

Меня больше всего интересовало как найти первый отрицательный элемент, я так понял эта вот эта строчка

if (x[i,j]<0)and(b[j]=0)

[Stilet]

Ога. Она самая. Первый минус фиксируется в особом массиве, и тут же присоединяется к сумме.