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