Imports System

​

Public Module Module1

​

    Public Sub Main()

        GivenLength()

        CustomLength()

    End Sub

​

    Sub GivenLength()

        Dim array(9) As Decimal

        array = {1, 2, 5, 6, 9, 12, 13, 8, 4, 1}

        Dim sum(9) As Decimal

        For j = 0 To 9

            For i = 0 To 9

                sum(j) += array(i) * array((i + j) Mod 10)

            Next

        Next

​

        For i = 0 To 9

            Console.WriteLine(sum(i))

        Next

    End Sub

​

    Sub CustomLength()

        Console.WriteLine("Enter number of array elements")

        Dim arraylength As Integer = Console.ReadLine() - 1

        Dim array(arraylength) As Decimal

        For i = 0 To arraylength

            Console.WriteLine("Enter next number")

            array(i) = Console.ReadLine()

        Next

​

        Dim sum(arraylength) As Decimal

        For j = 0 To arraylength

            For i = 0 To arraylength

                sum(j) += array(i) * array((i + j) Mod (arraylength + 1))

            Next

        Next

​

        For i = 0 To arraylength

            Console.WriteLine(sum(i))

        Next

    End Sub

End Module

​