двумерный массив, особые элементы

[Puffy]

дана матрица MxN. определить k - количество особых элементов массива, считая элемент особым, если он больше суммы остальных элементов своего столбца.
поиск не помог =(
спасибки

[Geddar]

на каком языке задача?

[puporev]

1.Создаем матрицу.
2.В столбцах первым ходом считаем сумму.
3.Вторым ходом считаем количество элементов, больших суммы столбца, причем с нарастающим итогом, для чего обнуляем K перед началом основного цикла.
В Паскале это пишется так:

uses crt;
const m=5;
      n=6;
var a:array[1..m,1..n]of integer;
    i,j,k,sum:integer;
begin
clrscr;
randomize;
writeln('Matrica:');
for i:=1 to m do
  begin
    for j:=1 to n do
      begin
       a[i,j]:=random(10)-3;
       write(a[i,j]:4);
      end;
    writeln;
  end;
k:=0;
for j:=1 to n do
   begin
     sum:=0;
     for i:=1 to m do
       begin
        sum:=sum+a[i,j];
        end;
     for i:=1 to m do
     if a[i,j]>sum then
        begin
         k:=k+1;
        end;
   end;
writeln('k=',k);
readln
end.