void __fastcall TForm1::btGenClick(TObject *Sender)
{
   //-- Генерация случайных чисел и заполнение  массива  А
        int Max2,Min2;
        Max2 = StrToInt(edMax->Text);
        Min2 = StrToInt(edMin->Text);
        srand(unsigned(time(NULL)));
        for(int j=0; j<5; j++)
         for(int i=0; i<5; i++)
            {
             try
                { sgT1->Cells[j][i] = IntToStr(rand()%Max2 + Min2);
                }
             catch(...)
                { sprintf(s,"В ячейке [%d][%d] - не число", i, j);
                  ShowMessage(s);
                }
            }
}
//---------------------------------------------------------------------------


void __fastcall TForm1::btGoClick(TObject *Sender)
{
//-- Генерация случайных чисел и заполнение  массива В
        int Max1,Min1;
        Max1 = StrToInt(edMax1->Text);
        Min1 = StrToInt(edMin1->Text);
        srand(unsigned(time(NULL)));
        for(int g=0; g<5; g++)
         for(int m=0; m<5; m++)
            {
             try
                { sgT2->Cells[g][m] = IntToStr(rand()%Max1 + Min1);
                }
             catch(...)
                { sprintf(s,"В ячейке [%d][%d] - не число", g, m);
                  ShowMessage(s);
                }
            }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  //Вычисление третьего массива С

        int i,j,m,g,e,r;

         for(int e=0; e<5; e++)
         for(int r=0; r<5; r++)
         {
      
       SG3->Cells[e][r] = StrToFloat(sgT2->Cells[g][m]) + StrToFloat(sgT1->Cells[j][i]);
            
}                 }   




//---------------------------------------------------------------------------