Как найти сумму четных отрицательных элементов массива - VB
Формулировка задачи:
Здравствуйте! Мне срочно надо сделать задание на допуск к экзамену.
Вот оно
Помогите, пожалуйста! Срочно надо!
- Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-1000,1000]. Найти сумму четных отрицательных элементов.
- Вывести индексы тех элементов, значения которых кратны 3 и 6.
- Определить, есть ли пара соседних элементов с суммой, равной заданному числу.
Листинг программы
- Dim b(50) As Double
- Private Sub Command1_Click()
- a = Text2
- s = 0
- Picture1.Cls
- Picture2.Cls
- Picture3.Cls
- n = Text1
- For i = 1 To Text3 - 1
- av = Split(Text1, " ")
- b(i) = Val(av(i))
- If (b(i) + b(i + 1) = a) Then
- y = "есть"
- End If
- If (b(i) + b(i + 1) <> a) Then
- y = "нет"
- End If
- If (b(i) Mod 6) <> 0 Then
- x = i
- End If
- If (b(i) Mod 2) < 0 Then
- End If
- s = s + b(i)
- Picture3.Print x;
- Next
- Picture1.Print s;
- Picture4.Print y;
- End Sub
Почти так:
Листинг программы
- Dim b(50) As Double
- Private Sub Command1_Click()
- a = Text2
- s = 0
- y = 0
- Picture1.Cls
- Picture3.Cls
- n = Text1
- For i = 1 To n
- b(i) = i + 1
- If b(i) + b(i + 1) = a Then
- y = y + 1
- End If
- If b(i) Mod 6 = 0 Then
- x = i
- Picture3.Print x
- End If
- If (b(i) Mod 2 = 0) And (b(i) < 0) Then
- s = s + b(i)
- End If
- Next
- If y = 0 Then
- p = "нет таких пар"
- End If
- If y <> 0 Then
- p = "есть такие пары"
- End If
- Picture4.Print p
- Picture1.Print s
- End Sub
Решение задачи: «Как найти сумму четных отрицательных элементов массива»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim A() As Integer, n As Integer, i As Integer
- Dim intVal As Integer, strInd As String, blnC As Boolean, lngSum As Long
- n = InputBox("Введите размер массива", "Ввод данных", 10)
- intVal = InputBox("Введите число", "Ввод данных", 100)
- ReDim A(1 To n)
- Randomize
- Cls
- For i = 1 To n
- A(i) = Int(Rnd * 2001 - 1000)
- Print A(i) & " "; 'Picture1.Print A(i);
- If A(i) < 0 And A(i) Mod 2 = 0 Then lngSum = lngSum + A(i)
- If A(i) Mod 3 = 0 And A(i) Mod 6 = 0 Then strInd = strInd & Str(i) & ", "
- If i >= 2 Then If A(i) + A(i - 1) = intVal Then blnC = True
- Next
- MsgBox "Cуммa четных отрицательных элементов - " & lngSum & vbCrLf & _
- "Индексы тех элементов, значения которых кратны 3 и 6 : " & strInd & vbCrLf & _
- "Eсть ли пара соседних элементов с суммой, равной заданному числу? - " & IIf(blnC, "Есть", "Нет")
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д