Question

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

Answer 1

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