Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

напишите программный код решения этой задачи

95K
22 декабря 2014 года
ouv
1 / / 22.12.2014
Дан массив из N элементов, сформированный случайным образом из чисел в диапазоне значений от 100 до 2000. Найти произведение всех чисел массива.(Visual Basic)
392
24 декабря 2014 года
cronya
421 / / 03.01.2009
Код:
Module Module1

    Sub Main()
        Dim size = 10
        Dim product As Double
        product = 1
        Dim rnd As New Random()
        Dim mArray = New Integer(size) {}
        rnd.Next(100, 2001)
        For idx As Integer = 1 To size
            mArray(idx) = rnd.Next(100, 2001)
            product *= mArray(idx)
        Next
        Console.WriteLine("Array:")
        For idx = 1 To size
            Console.Write(mArray(idx))
            Console.Write(" ")
        Next
        Console.WriteLine()
        Console.WriteLine("Product is {0}", product)
        Console.ReadLine()

    End Sub

End Module

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог