Опубликовано 5 лет назад по предмету Информатика от Мария1500

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

Ответ

Ответ дан HRAshton

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

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают