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