const
  n = 5;
  m = 6;

var
  i, j, kol :integer;
  
  a :array [1..n,1..m] of integer;

begin

  randomize;
  for i:= 1 to n do
    for j:= 1 to m do
      a[i,j]:= random(7);
  for i:= 1 to n do
  begin
    for j:= 1 to m do
      write(a[i,j]:4);
    writeln;
  end;
  
  kol:= 0;
  for i:= 1 to m do
    for j:= 1 to n do
      if a[j,i] = 0 then
      begin
        inc(kol);
        break;
      end;
      
  writeln(#10#13,'Столбцов с нулевыми элементами: ',kol);

end.