---

var
  a: array [1..31] of integer;
  k: integer;
begin
  writeln('Количество осадков за октябрь:');
  for var i:=1 to 31 do
  begin
    a[i]:=random(11);
    write(a[i], ' ');
  end;
  writeln;
  k:=0;
  for var i:=1 to 31 do
  begin
    if a[i]=0 then
    begin
      k+=1;
      writeln('Ясный день: ', i, ' октября');
    end;
  end;
  writeln('Количество ясных дней: ', k);
end.