Подчитать и вывести на экран количество отрицательных чисел, содержащихся в массиве - VB
Формулировка задачи:
Помогите пожалуйста.
Одноименный массив из N элементов заполнить с клавиатуры целыми числами. Подчитать и вывести на экран количество отрицательных чисел , содержащихся в массиве .
Решение задачи: «Подчитать и вывести на экран количество отрицательных чисел, содержащихся в массиве»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim s, a As Double
- Dim k As Integer
- Picture1.Cls
- Picture2.Cls
- Picture1.Print " k a(k) s(k)"
- s = 0
- For k = 1 To 10
- a = 1 / ((k ^ 2) + 3 * k + 4)
- s = s + a
- Picture1.Print k; " "; Format(a, "00.00000"); " "; Format(s, "00.00000")
- Next k
- Picture2.Print Format(s, "00.000")
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
