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

var / / начало программы;

i: integer; / /переменная целого типа;

a: array[1 ... 31] of integer; / /переменные для массива от 1 до 31;

begin

for i:=1 to 31 do read (a[i]); / /используем массив для хранения переменных;

for i:=1 to 31 do / /присвоим значения;

if a[i]=0 then write (i, ' '); / /вывод на экран пользователю;

end.