imports System

​

Public Module Module1

​

    Public Sub Main()

        dim vettoreVoti(200), insuff, suff, n, NumMax, NumMin as integer

        suff = 0

        insuff = 0

        NumMax = -3200

        NumMin = 3200

        console.writeline("Voti che vuoi inserire? (max 200)")

        n = console.readline()

        if n > 200 then

            console.writeline("Errore")

        else

            for i = 1 to n

                console.writeline("Inserisci il voto")

                vettoreVoti(i) = console.readline()

                if vettoreVoti(i) < NumMax then

                else

                    NumMax = vettoreVoti(i)

                    console.writeline("Voto massimo aggiornato")

                end if

​

                if vettoreVoti(i) > NumMin then

                else

                    NumMin = vettoreVoti(i)

                    console.writeline("Voto minimo aggiornato")

                end if

​

                console.writeline("Voto " & i & ": " & vettoreVoti(i))

                if vettoreVoti(i) <= 5 then

                    insuff = insuff + 1

                else

                    suff = suff + 1

                end if

            next

​

            console.writeline("Voti insufficienti : " & insuff)

            console.writeline("Voti sufficienti : " & suff)

            console.writeline("Voto più alto : " & NumMax)

            console.writeline("Voto più basso : " & NumMin)

        end if

    End Sub

End Module

​