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