Something

Option Strict On
Imports System.Console

Module Module1

    Sub Main()
        Dim intPaikat() As Integer = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}
        Dim paikka, laskuri As Integer

        laskuri = 0 ' Varattujen paikkojen lukumäärä on aluksi nolla

        Do

            WriteLine("Anna istumapaikan numero 1-30. Ohjelma lopettaa, kun annetaan 0 (nolla).")
            paikka = CInt(ReadLine())

            If paikka < 0 Or paikka > 30 Then
                WriteLine("Syötit paikan numeron väärin.")
            Else
                If paikka <> 0 Then
                    intPaikat(paikka - 1) = 1
                    laskuri = laskuri + 1
                End If
            End If


        Loop Until paikka = 0 Or laskuri = 30 ' Kun paikaksi laitetaan 0, ohjelman suoritus loppuu. Paikkoja on maksimissaan 30, joten ohjelma loppuu myös kun 30 tulee täyteen.

        If laskuri > 0 Then

            WriteLine("Myytyjä paikkoja oli " & laskuri & " kpl.")


            WriteLine("Myytyjen paikkojen numerot ovat ")
            For paikka = 1 To laskuri
                Write(intPaikat(paikka) & " ")
            Next

        Else
            WriteLine("Yhtään paikkaa ei myyty")
        End If


        ReadLine()
    End Sub

End Module