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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

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

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

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

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

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

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