значит так: program a1;
const
n=x; {вместо х и у ставятся любые числа}
m=y;
var
a: array[1..n,1..m] of integer;
i,j,s,k: integer;
begin
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j],' ');
writeln;
end;
k:=0;
for j:=1 to m do
begin
s:=0;
for i:=1 to n do
s:=s+a[i,j];
for i:=1 to n do
if a[i,j]>(s-a[i,j]) then
k:=k+1;
end;
writeln(k);
end.
например:
2 1 3 4
1 1 4 2
1 1 0 0
k=3
