[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, если проблема решена, отметьте тему решенной (вверху топика)