Определить сумму положительных и отрицательных чисел массива, общую сумму чисел и количество нулей - VB

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

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

прошу помочь с парой задач =) Изучаю VB, но из многих заданий эти не могу сделать правильно. 1. Вводятся числа. Определить сумму положительных и отрицательных чисел, общую сумму чисел и кол-во нулей 2. Дан массив из 10 чисел. Есть ли в массиве два соседних одинаковых числа? 3. Сколько слагаемых должно быть в сумме 1+1/2+1/3+...+1/n, чтобы эта сумма оказалась больше 5 Заранее очень сильно благодарю)
под 2ую написал цикл ввода числа, но не могу проверить соседние числа.
со 2 справился =)

Решение задачи: «Определить сумму положительных и отрицательных чисел массива, общую сумму чисел и количество нулей»

textual
Листинг программы
Private Sub Command1_Click()
Dim A() As Integer, bool As Boolean
Dim i As Integer
List1.Clear
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите размерность массива", , 10)
ReDim A(1 To m)
 For i = 1 To m
         A(i) = Int(Rnd * 21 - 10) 'Заполняем матрицу случайными числами
      List1.AddItem (A(i))
Next i
 For i = 1 To m - 1
   If A(i) = A(i + 1) Then bool = True
Next i
  If bool = True Then Print "В массиве есть два одинаковых числа " Else Print "В массиве рядом стоящих одинаковых чисел нет"
End Sub

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


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

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

5   голосов , оценка 3.6 из 5
Похожие ответы