Const
n=5;
m=5;
Var
a: array [1..n, 1..m] of byte;
i, j, k: byte;
sum: integer;
Begin
randomize;
writeln('Матрица А:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:5);
end;
writeln;
end;
k:=0;
for j:=1 to m do
begin
sum:=0;
for i:=1 to n do
sum:=sum+a[i,j];
for i:=1 to n do
if a[i,j] > sum-a[i,j] then k:=k+1;
end;
writeln('Результат:', k);
readln;
End.