Найти величину наибольшего отрицательного среди чисел заданной последовательности - VB
Формулировка задачи:
Даны целое N >0 и последовательность из N вещественных чисел, среди которых хотя бы одно отрицательное число, найти величину наибольшего отрицательного среди чисел этой последовательности.
Решение задачи: «Найти величину наибольшего отрицательного среди чисел заданной последовательности»
textual
Листинг программы
- Option Explicit
- Sub progr()
- Dim N, i As Integer
- Dim Max As Integer
- Range(Cells(1, 1), Cells(100, 100)).Select
- Selection.Clear
- Cells(1, 1).Select
- N = Val(InputBox("N - ?"))
- For i = 1 To N
- Cells(1, i) = Int(100 - Rnd * 200)
- Next i
- For i = 1 To N
- If Cells(1, i) < 0 Then
- Max = Cells(1, i)
- End If
- Next i
- For i = 1 To N
- If Max <> Cells(1, i) Then
- Max = Cells(1, i)
- End If
- Next i
- MsgBox ("max=" & Abs(Max))
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д