Обработка одномерных массивов. - 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)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.667 из 5
Похожие ответы