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
Написано без проверки, просто навскидку.
