Массивы попогите столбец задание

[Tooky]

Очень надеюсь на вашу помощь!
вроде задача простая должна быть, если не сложно помогите как можно скорее!

2. Дан столбец из 20 чисел. Сколько из этих чисел (первое и последнее число не учитывать) больше своих соседей, т.е. и предыдущих и последующих чисел.

[doober]

Задача легкая.решение -трудное.Нет желания файлик делать.данными заполнять.А ваши какие соображения по алгоритму решения этой задачи?

[Tooky]

мои соображения таковы:
столбец, 20 различных чисел, заполненный.
соседний столбец заполняю формулой A2>A1 , чтобы узнать какие числа больше предыдущих, где-то истина где-то ложь.
следующий столбец с формулой А2<А1, узнаю какие из них меньше предыдущего.
третий столбец делаю сумму, то есть если и там истина и там в ячейке получается 2.
и мне надо посчитать сколько двоек в столбце получается, по моему ходу решения

спасибо за внимание!

[EducatedFool]

мне надо посчитать сколько двоек в столбце получается, по моему ходу решения

в любую ячейку пишете формулу типа =счётесли(D1:D20;2)
и ответ готов - вы посчитали количество двоек

вот пример:

  Ячейка: B2      Формула  (стиль A1):   =И(A2>A1;A2>A3)
                  Формула  (стиль R1C1): =И(RC[-1]>R[-1]C[-1];RC[-1]>R[1]C[-1])

  Ячейка: B22     Формула  (стиль A1):   =СЧЁТЕСЛИ(B2:B19;ИСТИНА)
                  Формула  (стиль R1C1): =СЧЁТЕСЛИ(R[-20]C:R[-3]C;ИСТИНА)

[Hugo121]

Только где тут массивы?

Sub tt()
Dim a As Object, cc As Range, x As Byte
Set a = [a2:a19]
For Each cc In a
If cc > cc.Offset(-1, 0) Then
If cc > cc.Offset(1, 0) Then
x = x + 1
Debug.Print cc
End If
End If
Next
MsgBox x
End Sub