Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит подсчитать среднее арифметическое положительных элементов массива, которые кратны первому...

Искренне надеюсь, что Вы сможете перевести этот код к нужному виду..:) В принципе, расхождения должны быть только в вводе/выводе (где Console.Бла-бла-бла) и генерации случайных чисел) Sub Main()         Dim a(29), Sum, Col As Integer         Dim Rnd = New Random()         For i As Integer = 0 To 29             a(i) = Rnd.Next(-100, 100)             Console.Write("{0} => {1}" + Environment.NewLine, i, a(i))             If (i > 0) Then                 If (a(i) Mod a(0)) Then                     Sum = Sum + a(i)                     Col = Col + 1                 End If             End If         Next         Console.WriteLine(Math.Round(Sum / Col, 2))         Console.ReadKey()     End Sub