{* Задача64 *}

REM basic

' Дан целочисленный массив из 30 элементов, все элементы которого –
' положительные числа, не превосходящие 100. Напишите программу, которая находит и выводит номер элемента,
' имеющего максимальное количество целочисленных делителей (если таких элементов
' несколько, то номер любого из них).


{N = 30
}{Dim a(1 To n) As Integer
}{Dim i As Integer
}{Dim j As Integer
}{Dim k As Integer
}{Dim imax As Integer
}{Dim kmax As Integer
}{For i = 1 To n
}{INPUT a(i)
}{Next i
}{...
}{End
}N = 30
Dim a(1 To N) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim imax As Integer
Dim kmax As Integer
For i = 1 To N
INPUT a(i)
Next i
For i = 1 To N
k = 0
For j = 1 To a(i)
If a(i) Mod j = 0 Then
k = k + 1
End If
Next j
If (i = 1) Or (k > kmax) Then
imax = i
kmax = k
End If
Next i
PRINT a(imax)
End