Найти наибольшее число из отрицательных в массиве целых чисел - VB

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

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

ребят, помогите пожалуйста) не кидайтесь, я поискал похожие темы, всё равно не понял Найти наибольшее число из отрицательных в массиве целых чисел

Решение задачи: «Найти наибольшее число из отрицательных в массиве целых чисел»

textual
Листинг программы
Sub www()
    Dim a(), i&, m&
    Const n& = 5 'количество элементов в массиве
    ReDim a(1 To n)
    Randomize
    For i = 1 To n 'генерируем массив из случайных элементов
        a(i) = Int(Rnd * 21 - 10)
    Next i
    For i = 1 To n 'ищем максимальный отрицательный элемент
        If a(i) < 0 Then
            If m = 0 Or m < a(i) Then m = a(i)
        End If
    Next i
    If m = 0 Then
        MsgBox "В массиве :" & vbLf & Join(a, ", ") & vbLf & "нет отрицательных элементов"
    Else
        MsgBox "В массиве :" & vbLf & Join(a, ", ") & vbLf & "наибольшее число из отрицательных чисел: " & m
    End If
End Sub

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

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