Задан одномерный массив.

12.06.2011, 21:22. **Показов** 903. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Задан одномерный массив.Посчитать количество отрицательных элементов.

@19vitek · 12.06.2011, 23:07

как вариант.

Visual Basic

Sub n()
'Задан одномерный массив.Посчитать количество отрицательных элементов.
mas = Array(10, 4, 6, 8, -3, 5, -7, 9, -15, 7, 23)
kol = 0
For i = 0 To UBound(mas, 1) - 1
  If mas(i) < 0 Then kol = kol + 1
Next i
MsgBox "Количество отрицательных элементов в массиве=" & kol
End Sub

Kostomarik
		1
	Задан одномерный массив. 12.06.2011, 21:22. Показов 903. Ответов 1 Метки нет (Все метки) Задан одномерный массив.Посчитать количество отрицательных элементов.

	12.06.2011, 23:07

Опции темы