Проверка наличия положительных элементов массива, равных их индексу - VB

Формулировка задачи:

Есть ли среди положительных элементов массива элементы, равные своему индексу, в противном случае выдать сообщение, что таковых нет.

Решение задачи: «Проверка наличия положительных элементов массива, равных их индексу»

textual
                            Листинг программы 
                        

                            Function CheckArr(Arr() as integer) As Boolean
   for i%=1 to Ubound(Arr,1)
       If Arr(i%)=i% then
          CheckArr=True
          Exit Function
       End if
  Next i%
End Function
 
Sub Main()
Dim A(1 to 5) as integer
      A(1)=-1
      A(2)=3
      A(3)=3
      A(4)=0
      A(5)=6
      If CheckArr(A) then
         Debug.Print "Есть"
      else
         Debug.Print "Нет"
      end if     
End Sub
                        

Оцени полезность:

6 голосов , оценка 4 из 5

Похожие ответы