Imports System

Imports Microsoft.VisualBasic

Public Module Module1

​

    Public Sub Main()

        Console.WriteLine("Enter Array Size")

        Dim ArraySize As Integer = Console.ReadLine()

        'Dim A = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}

        Dim A(ArraySize) As Integer

​

        For z = 0 To ArraySize

            A(z) = Rnd() * 20

        Next

​

        Dim D(ArraySize) As Integer

​

        For x = 0 To ArraySize

            For y = 0 To ArraySize

                D(x) += A(y) * A((y + x) Mod (10))

            Next

        Next

​

        For t = 0 To ArraySize Step 1

            Console.WriteLine(D(t))

        Next

Console.ReadLine()

    End Sub

​

End Module

​