[Alegun]

Есть подозрение что ТСу нужно такое, вывод чисто по предыдущей теме того же автора

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j, n, n1: integer;
 d: double;
 tmp: array of double;
 x: array of array of double;
begin
 Randomize;
 n:= Random(8) + 2;
 n1:= Random(8) + 2;
 Edit1.Text:= inttostr(n1);
 Edit2.Text:= inttostr(n);
 SetLength(x, n, n1);

 with StringGrid1 do
  begin
   RowCount:= n; ColCount:= n1;
  end;

 for i := 0 to n-1 do
  for j := 0 to n1-1 do
   begin
    x[i, j]:= Random;
    StringGrid1.Cells[j, i]:= FloatToStr(x[i, j]);
   end;
 Memo1.Clear;
 SetLength(tmp, n);

 for i := 0 to n-1 do
  begin
   tmp[i]:= Sum(x[i]);
   Memo1.Lines.Add('Сумма элементов '+inttostr(i+1)+'-ой строки = '+FloatToStr(tmp[i]));
  end;

 d:= MinValue(tmp);
 Memo1.Lines.Add('');

 for i := 0 to n-1 do
  if tmp[i] = d then
   Memo1.Lines.Add('Мин. сумма - ' + FloatToStr(tmp[i])+', строка '  + inttostr(i+1));
end;