Определить количество отрицательных элементов массива - VB (171351)

Формулировка задачи:

Дан массив, состоящий из 20 элементов. Определить количество отрицательных элементов.

Код к задаче: «Определить количество отрицательных элементов массива - VB (171351)»

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

5   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ