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