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.