Найти произведение элементов массива, у которых индекс не четен

@natn · Регистрация: 18.05.2010

Дан одномерный массив М(20). Написать программу, которая находит произведение элементов массива, у которых индекс не четен. Для решения заполнить массив случайными числами в диапазоне от 0 до 100.

@YuraAAA · 18.05.2010, 22:32

Visual Basic

Public Sub proc1()
Dim M(1 To 20) As Single, P, i
P = 1
For i = 1 To 20
M(i) = Int(100 * Rnd)
Cells(i, 1) = M(i)
If i Mod 2 <> 0 Then P = P * M(i)
Next i
MsgBox P
End Sub

@natn · 18.05.2010, 22:36 **[ТС]**

Огромное спасибо =))))))))))))))))))))))

@natn 0 / 0 / 0 Регистрация: 18.05.2010 Сообщений: 16
		1
	Найти произведение элементов массива, у которых индекс не четен 18.05.2010, 22:17. Просмотров 1216. Ответов 2 Метки нет (Все метки) Дан одномерный массив М(20). Написать программу, которая находит произведение элементов массива, у которых индекс не четен. Для решения заполнить массив случайными числами в диапазоне от 0 до 100. 0

@natn 0 / 0 / 0 Регистрация: 18.05.2010 Сообщений: 16
	18.05.2010, 22:36 [ТС]	3
	Огромное спасибо =)))))))))))))))))))))) 0

Опции темы

Найти произведение элементов массива, у которых индекс не четен

Решение