Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Randomize()
        TextBox1.Text = ""
        Dim liczba1 As Integer = Rnd() * 100
        Dim tab(9) As Integer


        'wpisanie liczb do tabeli i textboxa1
        For licznik As Integer = 0 To 9
            liczba1 = Rnd() * 100
            tab(licznik) = liczba1
            TextBox1.Text = TextBox1.Text + CStr(liczba1) + vbNewLine
        Next

        TextBox1.Text = TextBox1.Text & vbNewLine

        'sumowanie liczb
        Dim suma As Integer = 0
        For licznik As Integer = 0 To 9
            suma = suma + tab(licznik)
        Next

        TextBox1.Text = TextBox1.Text + "Suma z elementów tablicy to: " & suma & vbNewLine
        TextBox1.Text = TextBox1.Text + "Srednia z elementów tablicy to: " & suma / 10 & vbNewLine

        'max wartosc
        Dim max As Integer
        For licznik As Integer = 0 To 9
            If tab(licznik) > max Then
                max = tab(licznik)
            End If
        Next

        TextBox1.Text = TextBox1.Text & "Element maksymalny z tablicy to: " & max & vbNewLine

        'min wartosc
        Dim min As Integer = tab(9)
        For licznik As Integer = 0 To 9
            If tab(licznik) < min Then
                min = tab(licznik)
            End If
        Next

        TextBox1.Text = TextBox1.Text & "Element minimalny z tablicy to: " & min & vbNewLine
        TextBox1.Text = TextBox1.Text & "Liczby parzyste:"

        'szukanie liczb w których reszta = 0
        For licznik As Integer = 0 To 9
            If tab(licznik) Mod 2 = 0 Then
                TextBox1.Text = TextBox1.Text & tab(licznik) & " "
            End If
        Next
        TextBox1.Text = TextBox1.Text & vbNewLine & vbNewLine

        TextBox1.Text = TextBox1.Text & "Ciąg liczb odwrócony:" & vbNewLine & vbNewLine

        'odwrócenie tabeli
        Array.Reverse(tab)

        'petla do wypisania odwrotnej tabeli
        For Each y As Integer In tab
            TextBox1.Text = TextBox1.Text & y & " " & vbNewLine
        Next

    End Sub
End Class