В массиве хранятся сведения о количестве осадков,выпавших за каждый день января. Определить в какие дни осадков не было. (Решите в 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.