найти и напечатать индексы и значения элементов, превышающих величину R. (вектор С размерности N)

 

sub sss()
dim a as integer
dim N as integer
dim R as double
dim stroka as string
N = 10
R = 100
stroka = ""

for a = 1 to N
if C(a) > R then
stroka = stroka & a & " "
end if
next a

call msgbox("Элементы превыщающие величину " & R & " имеют индексы: " & stroka)
end sub

'массив C должен быть задан и иметь размерность N или больше.
'N и R указываются в коде.