двухмерный массив С++(задача)

[Monzo]

Задана матрица MxN определить число "особых" элементов. Элемент считаеться "особым" если он больше суммы остольных элементов своего столбца.
Вопрос:Как посчитать сумму каждого столбца, или как вообше это реализовать ?

[Sazary]

Вроде работает..

program prmatr;
uses crt;

const M=3; N=7;

var
i,j,k,S,num : integer;
matr : array[1..M,1..N] of integer;

begin
clrscr;
randomize;
for i:=1 to M do
 for j:=1 to N do
  matr[i,j] := random(300);

num := 0;
for j:=1 to N do
 begin
 for i:=1 to M do
   begin
    S := 0;
    for k:=1 to M do
      begin
      if k=i then continue;
      S := S + matr[k,j];
      end;
    if matr[i,j]>S then inc(num);
   end;

 end;
writeln('Num= ',num);
readln;
end.

[Monzo]

хм... просмотрите пожалуйста, что у меня получилось и в чём ошибка. Задача та же.

Edit1->Text="3";
Edit2->Text="3";
}
//---------------------------------------------------------------------------
int n=3,m=3;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
n=StrToFloat(Edit1->Text);
m=StrToFloat(Edit2->Text);
if(n>99,m>99){
Edit1->Text="99";
Edit2->Text="99";
n=StrToFloat(Edit1->Text);
m=StrToFloat(Edit2->Text);
}
StringGrid1->RowCount=n;
StringGrid1->ColCount=m;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
int i,j,s=0,t,A[100][100],e=0,k;
randomize();
for(i=0;i<n;i++)
for(j=0;j<m;j++)
StringGrid1->Cells[i][j]=FloatToStr(random(10)-5);
for(i=0;i<n;i++)
for(j=0;j<m;j++){
A[i][j]=StrToFloat(StringGrid1->Cells[j][i]);
A[i][m]+=A[i][j];}
for(j=0;j<m;j++){
for(i=0;i<n;i++){
for(k=0;k>m;k++){
if(k=i)
s=s+A[k][j];
}
if(A[i][j]>s)
e++;
}
}
Memo1->Lines->Add("Значение "+IntToStr(e));

[Sazary]

Monzo Сравнивая со своим вариантом, заметил вот что:

for(j=0;j<m;j++){
for(i=0;i<n;i++){
for(k=0;k>m;k++){
if(k=i)
s=s+A[k][j];
}

По идее, тут ведь должно быть k<m