Найти произведение каждой строки матрицы

[Sakuhoro]

Дана двумерная матрица m*n . Необходимо найти произведение каждой строки.
Есть такой код, где матрица заполняется рандомными числами
procedure TForm1.btn1Click(Sender: TObject);
var
i,j,n,m:Integer;
begin
n:=StrToInt(edt1.Text);
m:=Strtoint(edt2.Text);
begin
Randomize;
Strngrd1.Colcount:=m+1;
Strngrd1.Rowcount:=n+1;
for i:=1 to n do
for j:=1 to m do
Strngrd1.Cells[i,j]:=IntToStr(random(10));
end;
end;

[Serge_Bliznykov]

1) у вас m ит перепутаны местами.

2) в гриде есть заголовки? (нулевые строка и столбец)?

3) "найти произведение каждой строки."
найти не сложно, куда их девать?

а найти можно так:

var p : double;
  i, j : integer;
begin
 for i:=1 to Rowcount-1  do begin
   p := 1.0;
   for j:=1 to Colcount-1 do
     p := p * StrToInt(Strngrd1.Cells[j, i]; // сначала индекс столбца, потом - индекс строки
    ShowMessage(format('В строке %d произведение = %3f',[i, p]));
 end;

end;

[northener]

Serge_Bliznykov, ТС уже получил ответ на другом форуме и был им удовлетворен. У меня только вопрос зачем вы переходите в данном коде на вещественные числа? Озвученная ТС задача предполагает наличие только целых чисел.

[Serge_Bliznykov]

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

зачем вы переходите в данном коде на вещественные числа?

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

[northener]

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

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

Понял.