запуталась окончательно, наверняка накосячила по-мелочи, но не могу найти(( помогите, пожалуйста((
вот код:
Код: Выделить всё
Form2->Show();
Form2->StringGrid1->RowCount=StrToInt(Edit2->Text);
Form2->StringGrid1->ColCount=StringGrid1->ColCount;
//o4istka komponent na 2 forme
for (int i=0; i<Form2->StringGrid1->ColCount; i++)
for (int j=0; j<Form2->StringGrid1->RowCount; j++)
Form2->StringGrid1->Cells[i][j]=" ";
Form2->Edit1->Text="";
float p, max_el=-100000000.0;
int l, max_n=0, j, m, n; //l - kol-vo otric. elementov
float *s, **matrix; //s - vector-stolbec srednix arifmeti4eskix
n=StringGrid1->ColCount;
m=StringGrid1->RowCount;
s=new float[m];
matrix=new float *[m];
// poisk nomera stroki s max srednearifmeti4eskim i formirovanie vector-stolbca s
for(int j=0; j<m; j++)
{ l=1;
p=0.0;
for(int i=0; i<n; i++)
{
if(StrToFloat(StringGrid1->Cells[i][j])<0)
{p+=StrToFloat(StringGrid1->Cells[i][j]); l++;}
}
s[j]=p/l;
if (s[j]>max_el)
{max_el=s[j]; max_n=j;}
}
//formirovanie matrici matrix
for(int j=0; j<m; j++)
{ if (j!=max_n)
for(int i=0; i<n; i++)
{
if(StrToFloat(StringGrid1->Cells[i][j])!=0)
matrix[j][i]=StrToFloat(StringGrid1->Cells[i][j]);
else
matrix[j][i]=s[j];
}
}
//vivod v komponenty StrinGrid matrici matrix
for(int j=0;j<m;j++)
{
for(int i=0;i<n;i++)
Form2->StringGrid1->Cells[i][j]=FloatToStr(matrix[j][i]);
}