Определить количество отрицательных элементов массива - VB (171351)
Формулировка задачи:
Дан массив, состоящий из 20 элементов. Определить количество отрицательных элементов.
Решение задачи: «Определить количество отрицательных элементов массива»
textual
Листинг программы
Dim a(1 To 20) As Single
Dim b%
List1.Clear
List1.AddItem "ÈñõîäГ*ûé Г¬Г*Г±Г±ГЁГў"
For i = 1 To 20
a(i) = InputBox("Ââåäèòå ýëåìåГ*ГІ Г¬Г*Г±Г±ГЁГўГ* " & i)
If a(i) < 0 Then b = b + 1
List1.AddItem a(i)
Next i
List1.AddItem "×èñëî îòðèöГ*ГІeëüГ*ûõ ýëåìåГ*òîâ"
List1.AddItem b
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д