Найти наибольшее число из отрицательных в массиве целых чисел - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д