#include <vcl.h>
#pragma hdrstop

#include "lab2_15.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm15 *Form15;
int kol1, kol2, i, j;
int mas[ 100 ][ 100 ];

//---------------------------------------------------------------------------
__fastcall TForm15::TForm15(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm15::Button1Click(TObject *Sender) //Это кнопка формирует 2й
//массив
{
if (mas[j]< 0 )
Edit3->Text=mas[j][i];
kol1=StrToInt(Form15->Edit1->Text);
kol2=StrToInt(Form15->Edit2->Text);

Form15->StringGrid1->ColCount=kol1;
Form15->StringGrid1->RowCount=kol2;

Form15->StringGrid2->ColCount=kol1;
//Form1->StringGrid2->RowCount=kol2;

for (i= 0 ;i<kol1; i++)
  { for (j= 0 ;j<kol2; j++)
   {
        Form15->StringGrid1->Cells[i][j]= 5 -random( 6 );
  }
  }

}
//---------------------------------------------------------------------------
//эта кнопка реализует нахождения мин элемента столбца и формирование
1го массива из произведений его индексов
void __fastcall TForm15::Button2Click(TObject *Sender)
{
int q, w,  t1, t2, i, j, y, z, x, k, min,h,s;

       t1=StrToInt(Form15->Edit1->Text);
       t2=StrToInt(Form15->Edit2->Text);

       for (q= 0 ;q<t1;q++)
       {
       for (w= 0 ;w<t2;w++)

         {mas[q][w]=StrToInt(Form15->StringGrid1->Cells[q][w]);}
                        }
     
          for (q= 0 ;q<t1;q++)
         {k= 1 ;
         for (w= 0 ; w<t2; w++)
          {y=mas[q][w];      
           
      if (y< 0 )
 {


 k=k*y;  } }


             //ShowMessage(IntToStr(k));
     Form15->StringGrid2->Cells[q][ 0 ]=IntToStr(k); } }