Programalama > ASP.NET

Dim a, b, c, d
        Dim sayi(5) As Integer
        
        
        For a = 0 To 5
            sayi(a) = Rnd(1) * 49 + 1
            Me.liste.Items.Add(sayi(a))
        Next
        
     
        d = sayi(0)
        c = sayi(0)
        
        For a = 1 To 5
            If d < sayi(a) Then
                d = sayi(a)
            End If
        Next
        For a = 1 To 5
            If c > sayi(a) Then
                c = sayi(a)
            End If
        Next
        Response.Write("En büyük sayı....." & d & "<br>")
        Response.Write("En küçük sayı....." & c & "<br>")