работа с одномерными массивами

Язык Visual Basic на платформе .NET.

Модераторы: Ramzes, Sebas

nen9kin
Начинающий
Начинающий
 
Сообщения: 1
Зарегистрирован: 16.02.2013 (Сб) 22:05

работа с одномерными массивами

Сообщение nen9kin » 16.02.2013 (Сб) 22:18

Есть массив из отрицательных и положительных чисел,который задается случайно. Требуется вычислить сумму элементов массива, расположенных между первым и последним отрицательными элементами. Сформировать из этих элементов новый массив.Подскажите пожалуйста как найти этот новый массив и сумму?
Код: Выделить всё
Public Sub reshenie(ByVal x() As Double, ByVal n As Integer)
        Dim k, p, j As Integer
        Dim s As Double
        For i = 0 To n - 1
            If x(i) < 0 Then k = i + 1 '
        Next i
        For i = n - 1 To 0
            If x(i) < 0 Then p = i - 1
        Next i
        For i = k To p
'???

FireFenix
Продвинутый гуру
Продвинутый гуру
Аватара пользователя
 
Сообщения: 1640
Зарегистрирован: 25.05.2007 (Пт) 10:24
Откуда: Mugen no Sora

Re: работа с одномерными массивами

Сообщение FireFenix » 17.02.2013 (Вс) 0:15

Код: Выделить всё
Dim Flag as Boolean = False
Dim Новый_Массив() как Тип_Массива
Dim Sum as Тип_Массива

Цикл i до Количество элементов в массиве
    Если Массив(i) < 0 Тогда
        Flag = True
    Иначе
        Если Flag = True Тогда Выход из цикла
    Конец Если

    Если Flag = True Тогда
          В Новый_Массив добавить элемент Массив(i)
          Sum += Массив(i)
    Конец Если
Конец Цикла
Птицей Гермеса меня называют, свои крылья пожирая... сам себя я укрощаю
私はヘルメスの鳥 私は自らの羽根を喰らい 飼い慣らされる


Вернуться в Visual Basic .NET

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11

    TopList