main()
{
int mass[2014]; a = 0;
if (mass[0] < mass[1])
a++;
for (i = 1; i < 2014; i++)
  {
  if (mass[i] < mass[i-1] && mass[i] < mass[i+1])
  {if (mass[i]  % 3 == 0)
  a++;}
  }
if (mass[2014] < mass[2013])
a++;
cout << a << endl;
}

Sub massiv01()
Dim M(3000) As Integer
S = 0
N=2014
For i = 2 To N - 1
If M(i) < M(i - 1) And M(i) < M(i + 1) And M(i) 3 = M(i) / 3 Then
S = S + 1
End If
Next i
If M(1) < M(2) And M(i) 3 = M(i) / 3 Then
S = S + 1
End If
If M(N) < M(N - 1) And M(i) 3 = M(i) / 3 Then
S = S + 1
End If
MsgBox "Min = : " & S
End Sub

Вариант VBA Excel
Посмотреть код Alt+F11