Question

Помогите создать программу)

Найти элемент массива кратный 7 и его индекс.

9 класс

Заранее спасибо!

 

 

 

 

 

 

Answer 1

 Dim a(10) As Integer 
 Dim max, ind As Integer
 max = 0   
 ind = -1
  
 For i As Integer = 0 To 10   
    If (a(i) mod 7)=0  Then        
        max = a(i)      
        ind = i      
        Exit For
    End If   
 Next