[решено] Помогите в решении задачи с одномерным массивом VBA.

[vovan1993]

Дан одномерный массив из N элементов.Определить кол-во элементов,значения которых больше заданного числа M.
Вот такая вот несложная задачка,но нужна помощь)))))

[Delirium]

vovan1993, а самому подумать?

Dim Mas1(5) as integer 'Начальный массив с элементами
Dim Itog(5) as integer 'Итоговый массив, в который будут заносится значения, больше заданного N
Dim N as integer 'Заданное N
Dim count as integer 'Счетчик найденных значений, и заодно переменная-индекс для заполнения массива
count =1

N = 5

Mas1(1) = 4
Mas1(2) = 2
Mas1(3) = 1
Mas1(4) = 7
Mas1(5) = 9

For i=1 to 5
If Mas(i) >N Then
Itog(count) = Mas(i)
count = count +1
End If
Next


'Выводим на печать или куда надо, найденные элементы

For i = 1 to count
MsgBox Itog(i)
Next

Написано без проверки, просто навскидку.

[vovan1993]

Delirium, спасибо громадное.

[Delirium]

vovan1993, если проблема решена, отметьте тему решенной (вверху топика)