Как найти сумму четных отрицательных элементов массива - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте! Мне срочно надо сделать задание на допуск к экзамену. Вот оно
  1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-1000,1000]. Найти сумму четных отрицательных элементов.
  2. Вывести индексы тех элементов, значения которых кратны 3 и 6.
  3. Определить, есть ли пара соседних элементов с суммой, равной заданному числу.
Я что-то делал, но ничего не выходит
Листинг программы
  1. Dim b(50) As Double
  2. Private Sub Command1_Click()
  3. a = Text2
  4. s = 0
  5. Picture1.Cls
  6. Picture2.Cls
  7. Picture3.Cls
  8. n = Text1
  9. For i = 1 To Text3 - 1
  10. av = Split(Text1, " ")
  11. b(i) = Val(av(i))
  12. If (b(i) + b(i + 1) = a) Then
  13. y = "есть"
  14. End If
  15. If (b(i) + b(i + 1) <> a) Then
  16. y = "нет"
  17. End If
  18. If (b(i) Mod 6) <> 0 Then
  19. x = i
  20. End If
  21. If (b(i) Mod 2) < 0 Then
  22. End If
  23. s = s + b(i)
  24. Picture3.Print x;
  25. Next
  26. Picture1.Print s;
  27. Picture4.Print y;
  28. End Sub
Помогите, пожалуйста! Срочно надо!
Почти так:
Листинг программы
  1. Dim b(50) As Double
  2. Private Sub Command1_Click()
  3. a = Text2
  4. s = 0
  5. y = 0
  6. Picture1.Cls
  7. Picture3.Cls
  8. n = Text1
  9. For i = 1 To n
  10. b(i) = i + 1
  11. If b(i) + b(i + 1) = a Then
  12. y = y + 1
  13. End If
  14. If b(i) Mod 6 = 0 Then
  15. x = i
  16. Picture3.Print x
  17. End If
  18. If (b(i) Mod 2 = 0) And (b(i) < 0) Then
  19. s = s + b(i)
  20. End If
  21. Next
  22. If y = 0 Then
  23. p = "нет таких пар"
  24. End If
  25. If y <> 0 Then
  26. p = "есть такие пары"
  27. End If
  28. Picture4.Print p
  29. Picture1.Print s
  30. End Sub

Решение задачи: «Как найти сумму четных отрицательных элементов массива»

textual
Листинг программы
  1. Private Sub Command1_Click()
  2. Dim A() As Integer, n As Integer, i As Integer
  3. Dim intVal As Integer, strInd As String, blnC As Boolean, lngSum As Long
  4.     n = InputBox("Введите размер массива", "Ввод данных", 10)
  5.     intVal = InputBox("Введите число", "Ввод данных", 100)
  6.     ReDim A(1 To n)
  7.     Randomize
  8.     Cls
  9.     For i = 1 To n
  10.          A(i) = Int(Rnd * 2001 - 1000)
  11.          Print A(i) & " ";  'Picture1.Print A(i);
  12.         If A(i) < 0 And A(i) Mod 2 = 0 Then lngSum = lngSum + A(i)
  13.          If A(i) Mod 3 = 0 And A(i) Mod 6 = 0 Then strInd = strInd & Str(i) & ",  "
  14.          If i >=  2 Then If A(i) + A(i - 1) = intVal Then blnC = True
  15.     Next
  16.     MsgBox "Cуммa четных отрицательных элементов - " & lngSum & vbCrLf & _
  17.            "Индексы тех элементов, значения которых кратны 3 и 6 : " & strInd & vbCrLf & _
  18.            "Eсть ли пара соседних элементов с суммой, равной заданному числу? - " & IIf(blnC, "Есть", "Нет")
  19. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы