ЗАДАЧА одномерные массивы

[ДМИТРИЙ1234]

Определить число элементов массива, каждый из которых превышает своего соседа налево не более чем на 25%.

[IgorGO]

если бы процентов на 20, ну максимум на 22 - я бы еще смог такую программу написать, но на 25!!! даже не знаю с чего начать...

[ДМИТРИЙ1234]

Давай программу на 20%.
Хоть что-то будет.

[IgorGO]

Function HowMatch(rg As Range) As Long
  Dim c As Long, i As Long, m()
  ReDim m(rg.Cells.Count)
  c = 0
  m(1) = rg.Cells(1)
  For i = 2 To UBound(m)
    m(i) = rg.Cells(i)
    If m(i) > m(i - 1) And m(i) / m(i - 1) < 6 / 5 Then c = c + 1
  Next
  HowMatch = c
End Function

[ДМИТРИЙ1234]

Спасибо большое.
А можно каждую строчку написать название???
Что определяется каждая строка.

[Hugo121]

Игорь, а почему не так?

Function HowMatchNom(rg As Range) As Long
  Dim c As Long, i As Long
  c = 0
  For i = 2 To rg.Cells.Count
    If rg.Cells(i) > rg.Cells(i - 1) And rg.Cells(i) / rg.Cells(i - 1) < 6 / 5 Then c = c + 1
  Next
  HowMatchNom = c
End Function

[IgorGO]

)))
Игорь, читай условия - это задача на массив, а у тебя в коде даже упоминания о массиве нет... а студентам надо...дать представление об основных понятиях и элементах ВБА

Function HowMatch(rg As Range) As Long ' обьявлена функция и ее тип, входящие аргументы и их тип
Dim c As Long, i As Long, m() ' обьявлены переменные
ReDim m(rg.Cells.Count) ' размер массива приведен к размеру диапазона с исходными данными
c = 0 ' обнулен счетчик
m(1) = rg.Cells(1) ' присвоено первое значение
For i = 2 To UBound(m) ' цикл с второго по последний элемент массива
m(i) = rg.Cells(i) ' i-й элемент массива получил значение с исходных данных
If m(i) > m(i - 1) And m(i) / m(i - 1) < 6 / 5 Then c = c + 1 ' если элемент соответствует кондициям счетчик увеличивается на 1
Next
HowMatch = c ' функция получает значение счетчика
End Function ' синтаксическая конструкция "конец записи функции"

Дима, а Вам задание на дом - получить из приведенного кода, код под Ваши 25% а не под 20, как посчитано здесь

[Hugo121]

И впрямь, забыл о смысле задачи.
Тогда для разнообразия так попирачу, голый массив без диапазона:

Sub HowMatchNoRng()
Dim c As Long, i As Long, a() ' объявлены переменные
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
c = 0 ' обнулен счетчик
For i = 1 To UBound(a) ' цикл с второго по последний элемент массива (первый индекс =0)
    If a(i) > a(i - 1) Then
        If a(i) / a(i - 1) < 6 / 5 Then
            c = c + 1 ' если элемент соответствует кондициям счетчик увеличивается на 1
        End If
    End If
Next
MsgBox c
End Sub