дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от...

Question

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

Comments

Я могу на VB.net написать, а Вы переведёте..:) Просто я КуВасика не знаю, да и исполнителя нету, но не думаю, что они особо отличаются..)

---

Согласны так?:)

---

я могу паскаль)

---

надо бы кубеймие

---

*кубейск

---

Но QBasic - диалект VisualBasic, в общем, я таки попробую, может, пригодится

---

давайте, буду благодарна))

Answer 1

Искренне надеюсь, что Вы сможете перевести этот код к нужному виду..:) В принципе, расхождения должны быть только в вводе/выводе (где 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