Еще на всякий случай прикреплю исходник на языке Pascal:
const n = 10;
var mat: array [1..n, 1..n] of integer;
sum, count: array [1..n] of integer;
begin
for var i:=1 to n do
for var j:=1 to n do
mat[i, j] := random(-10, 30);
writeln('Matrix: ');
for var i:=1 to n do
begin
for var j:=1 to n do
write(mat[i, j]:4);
writeln();
end;
writeln();
for var i:=1 to n do
for var j:=1 to n do
if mat[i, j] > 0 then
begin
sum[j] += mat[i,j];
count[j] += 1;
end;
writeln('Sum:');
for var i:=1 to n do
write(sum[i]:4);
writeln();
writeln('Positive count:');
for var i:=1 to n do
write(count[i]:4);
writeln();
end.
Эт чё
Объяснение: