program matrix;
uses crt;
var
a: array [1 .. 20, 1 .. 20] of integer;
b: array [1 .. 20] of integer;
n, m, i, j, k: integer;
begin
clrscr;
{ vvod i rasp matr }
write('n=');
readln(n);
write('m=');
readln(m);
writeln('ischod matr');
randomize;
for i := 1 to n do
begin
for j := 1 to m do
begin
a[i, j] := random(10) - 5;
write(a[i, j]:3);
end;
writeln;
end;
readln;
{ podschet po stolbcham }
for j := 1 to m do
begin
k := 0;
for i := 1 to n do
if a[i, j] > 0 then
begin
k := k + 1;
b[k] := a[i, j];
end;
writeln('Kol pol chis v stb', j, '=', k);
end;
readln;
end.