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