//---------------------------------------------------------------------------
const Nmax=100;
typedef double mas2[Nmax][Nmax];
int N=5,M=8;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Edit1->Text=FloatToStr(N);
Edit2->Text=FloatToStr(M);
StringGrid1->ColCount=N+1;
StringGrid1->RowCount=M+1;
StringGrid2->ColCount=N+1;
StringGrid2->RowCount=M+1;
StringGrid3->ColCount=N+1;
StringGrid3->RowCount=M+1;
StringGrid1->Cells[0][0]="Массив A";
for(int i=1; i<=N;i++)
StringGrid1->Cells[i][0]="i="+IntToStr(i);
for(int j=1; j<=M;j++)
StringGrid1->Cells[0][j]="j="+IntToStr(j);
for(int i=0; i<N;i++)
for(int j=0; j<M;j++)
StringGrid1->Cells[i+1][j+1]=rand()%100;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
N=StrToInt(Edit1->Text);
M=StrToInt(Edit2->Text);
StringGrid1->ColCount=N+1;
StringGrid1->RowCount=M+1;
StringGrid2->ColCount=N+1;
StringGrid2->RowCount=M+1;
StringGrid3->ColCount=N+1;
StringGrid3->RowCount=M+1;
StringGrid1->Cells[0][0]="Массив A";
for(int i=1; i<=N;i++)
StringGrid1->Cells[i][0]="i="+IntToStr(i);
for(int j=1; j<=M;j++)
StringGrid1->Cells[0][j]="j="+IntToStr(j);
for(int i=0; i<N;i++)
for(int j=0; j<M;j++)
{
StringGrid1->Cells[i+1][j+1]=rand()%100;
StringGrid2->Cells[i+1][j+1]=StringGrid1->Cells[i+1][j+1];
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int max1,max2,max3,k=1,min1,nstr;
max1=StrToInt(StringGrid1->Cells[1][1]);
for(int j=1; j<=M; j++)
{
for(int i=0; i<N; i++)
{
if (max1 < StrToInt(StringGrid1->Cells[i+1][j]))
max1=StrToInt(StringGrid1->Cells[i+1][j]);
}
StringGrid3->Cells[1][k]=IntToStr(max1);
StringGrid3->Cells[2][k]=IntToStr(j);
k+=1;
max1=0;
}
min1=StrToInt(StringGrid3->Cells[1][1]);
for(int i=1; i<=N; i++)
{
for(int j=0; j<=M; j++)
{
if (min1 > StrToInt(StringGrid3->Cells[1][j+1]))
{
min1=StrToInt(StringGrid3->Cells[1][j+1]);
nstr=StrToInt(StringGrid3->Cells[2][j+1]);
}
}
for (int l=1; l<=N; l++)
StringGrid1->Cells[l][1]=StringGrid1->Cells[l][nstr];
}
}
//---------------------------------------------------------------------------