
Imports System.Console
Module Module1
    Dim ans As Integer
    Dim n, k As Integer
    Dim dpa() As Double
    Dim ii As Integer
    Sub Main()
        Dim s() As String = ReadLine.Split
        n = s(0)
        k = s(1)
        Dim ast() As String = ReadLine.Split
        Dim a(n) As Double
        For i = 0 To n - 1
            a(i) = ast(i)
        Next
        dpa = a.Clone
        Dim cutnum(n) As Integer
        For i = 0 To n
            cutnum(i) = 1
        Next
        For i = 1 To k
            cutnum(Maxind) += 1
            For ii = 0 To n - 1
                dpa(ii) = a(ii) / cutnum(ii)
            Next
            k = k
        Next
        WriteLine(Math.Ceiling(dpa(Maxind)))
        ReadLine()
    End Sub
    Function Maxind()
        Dim max As Double = 0
        Dim maxi As Integer = 0
        For i = 0 To n - 1
            If dpa(i) > max Then
                max = dpa(i)
                maxi = i
            End If
        Next
        Return maxi
    End Function
End Module
