Сформировать массив из средних геометрических элементов столбцов матрицы, состоящей из положительных элементов

{
 int mas[10][10]; //Массив1
 int mas1[10]; //Массив2
 int poiz = 1;        // Переменная для хранения произведения
 int n=StringGrid1->RowCount; // Количество строк
 double rez = 0;
 
 for(int i=0;i<StringGrid1->ColCount;i++)
      {  for(int j=0;j<StringGrid1->RowCount;j++)
         proiz = proiz * mas[i][j];
         rez = power (proiz,1/n);
 
 for(int i=0;i<StringGrid2->ColCount;i++)
    StringGrid2->Cells[i][0] = mas1[rez];
    proiz = 1;
    rez = 0;
      }
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int mas[10][10]; 
 int proiz = 1; 
 int n=StringGrid1->RowCount;
 double rez = 0;
 
 for(int i=0;i<StringGrid1->ColCount;i++)
      {  for(int j=0;j<StringGrid1->RowCount;j++)
          proiz = proiz * mas[i][j];
          rez = proiz * (1/n);
 
 for(int i=0;i<StringGrid2->ColCount;i++)
    StringGrid2->Cells[i][0] = rez;
    proiz = 1;
    rez = 0;
      }
}

rez = proiz * (1/n);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 int proiz = 1; 
 double rez = 0;
 
 int mas[10][10];
  int n=StringGrid1->ColCount;
  int m=StringGrid1->RowCount;
  for(int i=0;i<n;i++){
  {  for(int j=0;j<m;j++)
    try{
      mas[i][j] = StrToInt(StringGrid1->Cells[i][j]);
    } catch(...){
      Application->MessageBox("Массив не введен","Error",MB_OK);
      StringGrid1->Col = i;
      StringGrid1->Row = j;
      return;
                    }
        }
   }
 
 for(int i=0;i<StringGrid1->ColCount;i++)
      {  for(int j=0;j<StringGrid1->RowCount;j++)
         proiz = proiz * mas[i][j];
         rez = Power (proiz,1/n);
 
 for(int i=0;i<StringGrid2->ColCount;i++)
    StringGrid2->Cells[i][0] = rez;
    proiz = 1;
    rez = 0;
      }
}

mas[i][j] = StrToInt(StringGrid1->Cells[j][i]);

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 unsigned long int proiz;  // в простой int результат может не влезть
 double rez;
 
 const n=10, m=10;
 int mas[n][m];
 StringGrid1->ColCount = m;
 StringGrid1->RowCount = n;
 StringGrid2->ColCount = m;
 StringGrid2->RowCount = 1;
 randomize();
 for(int i=0;i<n;i++)
   for(int j=0;j<m;j++)
   {
      // вместо 1000 можно указать и RAND_MAX (= 32767)
      mas[i][j] = random(1000)+1;  // +1 из-за того, что элементы положительные, а рандом может выдать и 0
      StringGrid1->Cells[j][i] = mas[i][j];
   }
 
 // вывод результатов исправлен (вроде не ошибся, так как считаем ср. геом. элементов столбцов, а не строк)
 for(int j=0;j<m;j++)
 {
   proiz = 1;
   for(int i=0;i<n;i++)
     proiz = proiz * mas[i][j];
   rez = Power(proiz,1./n);  // приведение типов; точка обязательна, если n - целое, иначе 1/n всегда будет 0 при n>1 и Power выдаст 1
   StringGrid2->Cells[j][0] = SimpleRoundTo(rez, -6);  // (простое) округление до шести знаков после запятой
 }
}