Задана матрица размером NxM. Определить k - количество "особых" элементов матрицы, считая элемент "особым", если он больше суммы остальных элементов своего столбца.

Program Pr1;

uses crt;

const n=100;

m=100;

var mas:array[1 ... n, 1 ... m] of integer;

i, j, l, k, v:integer;

Begin

clrscr;

for j:=1 to m do

for i:=1 to n do begin

randomize;

mas[i, j]:=random (100) ;

end;

l:=0; v:=0;

for j:=1 to m do

for i:=1 to n do begin

k:=1;

while k<=m do if k=m then k:=k+1

else begin

l:=mas[i, k]+l;

k:=k+1;

end;

if mas[i, j]>l then v:=v+1;

l:=0;

end;

writeln (v) ;

end.