Одномерный массив* блок схема** - VB
Формулировка задачи:
подскажите пожалуйста как выполнить задание!
Нарисовать блок схему и написать программу, которая находит количество элементов массива,больших 1,5. при том, что дан одномерный массив U(10).
Решение задачи: «Одномерный массив* блок схема**»
textual
Листинг программы
Private Sub Command1_Click() Dim a(10) As Double, i As Integer, k As Integer Dim str As String str = "" k = 0 Randomize For i = 1 To 10 a(i) = Rnd * 5 a(i) = Round(a(i), 1) str = str & a(i) & " " If a(i) > 1.5 Then k = k + 1 Next i MsgBox "среди элементов массива " & str & vbCrLf & _ "колич. элементов больших 1,5 равно " & k End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д