Две задачки на паскаль, через массивы!

[Mixozz]

Помогите написать две программки, используя массивы.
1) В массиве хранится информация о количестве осадков, выпавших на каждый день января. Определить, в какие числа месяца осадков не было.
2) Найти число элементов массива, которые больше своих "соседей", т.е. предшествующего и последующего.

Помогите плз, а то вообще мыслей нет. Идею хотяб подкиньте

[BDA]

for i:=1 to 31 do
if a[i]=0 then
	writeln(i,' января осадков не было');
count:=0;
for i:=2 to 30 do
if (a[i-1]<a[i])and(a[i]>a[i+1]) then
	inc(count);
writeln(count);