Задание не совсем корректное. Если в массиве хранятся числа и отсутствие осадков принято за "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, ' ');<span>
end.
</span>
3 , так как он поднялся вверх и находился C:\Doc\Class\9v\Topic\Algebra и туда переместил файл
Поставить на пк пароль, ахах