Вычислить сумму элементов матрицы, стоящих на нечетных местах - VB
Формулировка задачи:
Дан вектор Х(n), вычислить сумму элементов, стоящих на нечетных местах.
Обьясните или покажите как сделать такое задание. Буду очень блогадарен.
Решение задачи: «Вычислить сумму элементов матрицы, стоящих на нечетных местах»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim x() As Single, N As Byte 'Объявляем массив и переменные
- Dim i, j, sum As Single
- N = InputBox("N") 'Вводим N то есть число элементов в массиве
- ReDim x(1 To N) As Single 'и делаем массив заданного размера , от 1 до N
- For i = 1 To N
- x(i) = InputBox("Элемент : " & i) 'При помощи цикла заполняем массив поэлементно
- Next i
- sum = 0
- For i = 1 To N Step 2 'Цикл от 1 до N с шагом 2 ( чтобы шёл только по нечётным индексам)
- sum = sum + x(i) 'Добавляем к существующей сумме следующий элемент
- Next i
- MsgBox sum 'Выводим сумму
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
