Массив: Найти сумму элементов, стоящих на чѐтных местах, и произведение, стоящих на нечетных.

@Elisei1133 · Регистрация: 10.12.2015

Author24 — интернет-сервис помощи студентам

Надо сделать задание:
Дан целочисленный массив А, содержащий N элементов. Найти
сумму элементов, стоящих на чѐтных местах и произведение,
стоящих на нечетных. + составить блок-схему

Не могу догнать как проверить элементы массива на четность/нечетность. Не судите строго в программировании я не силен. Заранее спасибо

VB.NET

Dim A, N As Integer
        Console.WriteLine("Введите значение A")
        A = Val(Console.ReadLine())
        Console.WriteLine("Введите значение N")

@~~Апострофф~~ · 10.12.2015, 12:21

VB.NET

        Dim a(), N, S, P As Long, r As New Random
        Console.WriteLine("Введите значение N")
        N = Val(Console.ReadLine())
        ReDim a(N - 1)
        P = 1
        For i As Integer = 0 To N - 1
            a(i) = r.NextDouble * N + 1
            Console.WriteLine("A(" & i + 1 & ")=" & a(i))
            If i And 1 Then S += a(i) Else P *= a(i)
        Next
        Console.WriteLine("S=" & S)
        Console.WriteLine("P=" & P)

@Elisei1133 · 10.12.2015, 16:40 **[ТС]**

Спасибо большое

@Elisei1133 0 / 0 / 0 Регистрация: 10.12.2015 Сообщений: 2
	10.12.2015, 16:40 [ТС]	3
	Спасибо большое 0

Массив: Найти сумму элементов, стоящих на чѐтных местах, и произведение, стоящих на нечетных.

Решение