Переменной 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы