Определить сумму положительных и отрицательных чисел массива, общую сумму чисел и количество нулей - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
