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

Задание не совсем корректное. Если в массиве хранятся числа и отсутствие осадков принято за "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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.