VPF::необходимо составить код на одномерный массив

илья1992

Дата 12.4.2015, 15:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 12.4.2015

Репутация: нет
Всего: нет

Дан вектор А(n). Вычислить сумму элементов стоящих на четных местах smile

помогите составить буду очень благодарен, а то я в бейсике полный нуб smile

ТоляМБА

Дата 12.4.2015, 21:03 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: нет
Всего: 252

Код

Sub MySub()
Dim a() As Integer
Dim i, sum, n As Integer
n = 15
ReDim a(n)
sum = 0
Randomize
For i = 1 To n
    a(i) = Int((100 * Rnd) + 1)
    If i Mod 2 = 0 Then sum = sum + a(i)
Next
MsgBox sum
End Sub

ТоляМБА

Дата 12.4.2015, 21:03 (ссылка)

(нет голосов)

Загрузка ...

Котэ

Профиль
Группа: Завсегдатай
Сообщений: 1607
Регистрация: 15.12.2004

Репутация: нет
Всего: 252

Код

Sub MySub()
Dim a() As Integer
Dim i, sum, n As Integer
n = 15
ReDim a(n)
sum = 0
Randomize
For i = 1 To n
    a(i) = Int((100 * Rnd) + 1)
    If i Mod 2 = 0 Then sum = sum + a(i)
Next
MsgBox sum
End Sub

Akina

Дата 13.4.2015, 09:07 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 25
Всего: 453

Код


Option Base 1

Код


for i = 2 to n step 2

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »