Подчитать и вывести на экран количество отрицательных чисел, содержащихся в массиве - 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

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


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

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

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