В массиве хранятся сведения о количестве осадков,выпавших за каждый день января.

Задание не совершенно корректное. Если в массиве хранятся числа и неименье осадков принято за "0", то программка выглядит так
var i: integer;   
     a: array[1..31] of integer;  
 begin     
     for i:=1 to 31 do read(a[i]);   
     for i:=1 to 31 do    
          if a[i]=0 then write(i, '  ');   
 end.