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