Найти сумму элементов массива, значения которых по модулю меньше 10 - VB

Узнай цену своей работы

Формулировка задачи:

Напишите плисс легкую программку, я просто изучал паскаль, а не basic. 1. Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,40]. Найти сумму элементов, значения которых по модулю меньше 10. 2. Вывести индексы тех элементов, значения которых больше значения последующего элемента. 3. Определить, есть ли две пары соседних элементов с разными знаками

Решение задачи: «Найти сумму элементов массива, значения которых по модулю меньше 10»

textual
Листинг программы
Dim arr1(9) As Integer
Dim i, iSum As Integer
Dim strBuf1 As String
Dim strBuf2 As String
 
Dim dblVal As Double
 
iSum = 0
 
' Инициализация тестового массива
For i = 0 To 9
    dblVal = Rnd()
    arr1(i) = (dblVal * 80) Mod 40
    If Rnd() > 0.5 Then arr1(i) = arr1(i) * (-1)
Next
 
' Обработка данных массива
For i = 0 To UBound(arr1)
    ' Сумма элементом меньших 10 по модулю
    If arr1(i) > -10 And arr1(i) < 10 Then
        iSum = iSum + arr1(i)
    End If
 
    If i > 0 Then
 
    ' п.2 задачи
        If arr1(i) > arr1(i - 1) Then
            If strBuf1 = "" Then
                strBuf1 = CStr(i)
            Else
                strBuf1 = strBuf1 & ", " & CStr(i)
            End If
        End If
 
    ' п.3 задачи
        If ((arr1(i) > 0 And arr1(i - 1) < 0) Or (arr1(i) < 0 And arr1(i - 1) > 0)) Then
            If strBuf2 = "" Then
                strBuf2 = CStr(i - 1) & " ГЁ " & CStr(i)
            Else
                strBuf2 = strBuf2 & ", " & CStr(i - 1) & " ГЁ " & CStr(i)
            End If
        End If
    End If
Next
 
MsgBox "Сумма: " & CStr(iSum) & vbCrLf & _
        "Индексы п.2: " & strBuf1 & vbCrLf & _
        "Индексы п.3: " & strBuf2 & vbCrLf

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы