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

Предыдущий
вопрос Следующий
вопрос

program NoPrecipitation;

var
precipitations: array[1..31] of integer;
i: integer;

begin
writeln('Введите количество осадков, выпавших за каждый день января:');

for i := 1 to 31 do
begin
write('День ', i, ': ');
readln(precipitations[i]);
end;

writeln('Осадков не было в следующие дни:');

for i := 1 to 31 do
begin
if precipitations[i] = 0 then
writeln('День ', i);
end;
end.