[Alegun]

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

...Вычислить сумму элементов каждой строки матрицы А (n x m), определить наименьшее значение этих сумм и номер соответствующей строки...

Матрица Х должна быть уже заполнена

Код:

...
var
i,j,n:integer;
tmp: array of integer;
begin
 Memo1.Clear;

 SetLength(tmp, High(x)+1);

 for i := Low(x) to High(x) do
  begin
   tmp[i]:= SumInt(x[i]);
   Memo1.Lines.Add(IntToStr(i) + ': ' + IntToStr(tmp[i]));
  end;

 n:= MinIntValue(tmp);

 for i := Low(tmp) to High(tmp) do if tmp[i] = n then
  Memo1.Lines.Add('Минимальная сумма элементов ' + IntToStr(i) + '-ой строки = ' + IntToStr(tmp[i]));
end;

З.Ы. Кстати, очистить ячейки стрингрида можно и так

Код:

with StringGrid1 do for i := FixedCols to ColCount-1 do Cols[i].Clear;