Робота с двумерными массивами
Помогите исправить ошибки в коде.
Задача : Найти среднее арифметическое элементов каждого из парных столбиков матрицы А размером 5х10
Код:
Задача : Найти среднее арифметическое элементов каждого из парных столбиков матрицы А размером 5х10
Код:
Код:
void __fastcall TForm1::Button2Click(TObject *Sender)
{
int X[5],sum,count;
Memo1->Clear();
for(i=0;i<5;i++)
for(j=0;j<10;j++)
A[i][j]=StrToInt(SG1->Cells[j][i]);
for (j=0;j<10;j++)
{
sum=0;
count=0;
X[j]=0;
for(i=0;i<5;i++)
if(j%2==0)
{
sum+=A[i][j];
count++;
}
X[j]=sum/count;
Memo1->Lines->Add(IntToStr(X[j]));
}
}
{
int X[5],sum,count;
Memo1->Clear();
for(i=0;i<5;i++)
for(j=0;j<10;j++)
A[i][j]=StrToInt(SG1->Cells[j][i]);
for (j=0;j<10;j++)
{
sum=0;
count=0;
X[j]=0;
for(i=0;i<5;i++)
if(j%2==0)
{
sum+=A[i][j];
count++;
}
X[j]=sum/count;
Memo1->Lines->Add(IntToStr(X[j]));
}
}