Переменной S присвоить значение -1, если максимальный элемент массива А больше максимального элемента В - VB

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

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

Ребята помогите решить задачу. нужно решение. Остался час на сдачу зачёта. Буду благодарна Вам за помощь. Заданы два массива А, B. A={-5.2 8 1.3 -6}; B={-4.7 -3 2.6 7 13 -1} Переменной S присвоить значение -1, если максимальный элемент массива А больше максимального элемента В; 0 – если они равны; +1 - если максимальные элементы массивов А и B равны; 1, если максимальный элемент массива А меньше максимального элемента массива B
для зачёта. осталось 1,5 часа.

Решение задачи: «Переменной S присвоить значение -1, если максимальный элемент массива А больше максимального элемента В»

textual
Листинг программы
    Sub Main()
        Dim A(4) As Double
        For i = 0 To 3
            A(i) = InputBox("Ввести элемент А('" & i & "')")
        Next i
        Dim B(6) As Double
        For j = 1 To 5
            B(j) = InputBox("Ввести элемент B('" & j & "')")
        Next j
        Dim x, y As Double
        Dim S As Integer
        x = A(0)
        For i = 1 To 3
            If A(i) > x Then x = A(i)
        Next i
        y = B(0)
        For j = 1 To 5
            If B(j) > y Then y = B(j)
        Next j
        If x > y Then
            S = -1
        ElseIf x = y Then
            S = 0
        Else
            S = 1
        End If
        MsgBox ("S= " & S)
    End Sub

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


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

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

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