Вычислить сумму элементов матрицы, стоящих на нечетных местах - 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

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


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

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

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