Обработка одномерных массивов. - VB
Формулировка задачи:
Ребята помогите написать прогу:
Подсчитать кол-во элементов ,равных 0 в массиве Q(15)
Найти произведение элементов,расположенных над главной диагональю массива D(7,7)
Решение задачи: «Обработка одномерных массивов.»
textual
Листинг программы
Dim q(15) As Integer
Dim indexer as Integer = 0
For i As Integer = 0 To 15
q(i) = Val(inputbox("Введите число"))
If q(i) = 0 Then
indexer + = 1
End If
Next
msgbox(indexer)