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