Kol1_za4

Module Module1

    Class student
        Private ime, prezime As String
        Private godina As Byte

        Sub New(ByVal i As String, ByVal p As String, ByVal g As Byte)
            ime = i
            prezime = p
            godina = g
        End Sub

        ReadOnly Property getIme() As String
            Get
                Return ime
            End Get
        End Property

        ReadOnly Property getPrezime() As String
            Get
                Return prezime
            End Get
        End Property

        ReadOnly Property getGodina() As Byte
            Get
                Return godina
            End Get
        End Property
    End Class

    Function kreirajNizStudenata() As student()
        Dim rand As Random = New Random
        Dim niz() As student = New student(rand.Next(1, 5)) {}

        Return niz
    End Function

    Function napuniNizStudenata(ByVal niz() As student) As student()
        Dim ime, prezime As String
        Dim godina As Byte = 0
        ime = ""
        prezime = ""

        Console.WriteLine("Niz ima " & niz.Length & " studenata.")
        For i = 0 To niz.Length - 1
            Console.Write("Ime: ")
            ime = Console.ReadLine()
            Console.Write("Prezime: ")
            prezime = Console.ReadLine()
            Console.Write("Godina: ")
            godina = Console.ReadLine()
            Console.WriteLine()

            niz(i) = New student(ime, prezime, godina)
        Next

        Return niz
    End Function

    Sub ispisiNizStudenata(ByVal niz() As student)
        For i = 0 To niz.Length - 1
            Console.WriteLine()
            Console.WriteLine(niz(i).getIme & " " & niz(i).getPrezime & " " & niz(i).getGodina)
        Next
    End Sub

    Sub najmladi(ByVal niz() As student)
        Dim min As Byte = Byte.MaxValue
        Dim ime, prezime As String
        ime = " "
        prezime = " "

        For i = 0 To niz.Length - 1
            If niz(i).getGodina < min Then
                min = niz(i).getGodina
                ime = niz(i).getIme
                prezime = niz(i).getPrezime
            End If
        Next

        Console.WriteLine("Najmladi student je: " & ime & " " & prezime)
    End Sub

    Sub najstariji(ByVal niz() As student)
        Dim max As Byte = Byte.MinValue
        Dim ime, prezime As String
        ime = " "
        prezime = " "

        For i = 0 To niz.Length - 1
            If niz(i).getGodina > max Then
                max = niz(i).getGodina
                ime = niz(i).getIme
                prezime = niz(i).getPrezime
            End If
        Next

        Console.WriteLine("Najmladi student je: " & ime & " " & prezime)
    End Sub

    Sub main()
        Dim izbor As String = "aa"
        Dim niz() As student
        niz = kreirajNizStudenata()
        niz = napuniNizStudenata(niz)

        While izbor <> "4"
            Console.Write("Izbor[1-najmladi, 2-najstariji, 3-ispisi sve, 4-kraj]: ")
            izbor = Console.ReadLine()

            If izbor = "4" Then
                Console.WriteLine("Kraj")
                Exit While
            End If

            Select Case izbor
                Case "1"
                    najmladi(niz)
                Case "2"
                    najstariji(niz)
                Case "3"
                    ispisiNizStudenata(niz)
                Case Else
                    Console.WriteLine("Netocan izbor!")
            End Select
        End While

    End Sub

End Module