[Alegun]

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

...Необходимо перемножить элементы каждого столбца и вывести в новый массив...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
 i, j, sm: integer;
begin
 StringGrid2.ColCount:= StringGrid1.ColCount;
 StringGrid2.RowCount:= 1;

 for i := 0 to StringGrid1.ColCount-1 do
  begin
   sm:= 1;
   for j := 0 to StringGrid1.RowCount-1 do
    sm:= sm * StrToInt(StringGrid1.Cells[i,j]);
   StringGrid2.Cells[i,0]:= IntToStr(sm);
  end;
end;