Даны три числа. Найти среди них максимальное отрицательное число - VB

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

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

Всем примет, начал изучать Visual Basic никак не могу решить задачу. Даны три числа. Найти среди них максимальное отрицательное число. Помогите пожалуйста

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

textual
Листинг программы
Option Explicit
Dim a(1 To 3) As Single, max As Single, i As Integer
Private Sub main()
    
    For i = LBound(a) To UBound(a)
         a(i) = InputBox("Введите число")
         If a(i) < 0 And max = 0 Then max = a(i)
         If a(i) < 0 And max < a(i) Then max = a(i)
    Next i
    
    If max < 0 Then
        MsgBox ("Максимальное отрицательное число равно  " & max)
    Else
        MsgBox ("Отрицательных чисел нет ")
    End If
    
End Sub

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


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

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

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