Это информация
.............................
2 мегобита !но компьютер тупет и плохо работает
Задание не совсем корректное. Если в массиве хранятся числа и отсутствие осадков принято за "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>