Найти величину наибольшего отрицательного среди чисел заданной последовательности - VB

Узнай цену своей работы

Формулировка задачи:

Даны целое N >0 и последовательность из N вещественных чисел, среди которых хотя бы одно отрицательное число, найти величину наибольшего отрицательного среди чисел этой последовательности.

Решение задачи: «Найти величину наибольшего отрицательного среди чисел заданной последовательности»

textual
Листинг программы
  1. Option Explicit
  2. Sub progr()
  3. Dim N, i As Integer
  4. Dim Max As Integer
  5. Range(Cells(1, 1), Cells(100, 100)).Select
  6. Selection.Clear
  7. Cells(1, 1).Select
  8. N = Val(InputBox("N - ?"))
  9. For i = 1 To N
  10. Cells(1, i) = Int(100 - Rnd * 200)
  11. Next i
  12. For i = 1 To N
  13. If Cells(1, i) < 0 Then
  14. Max = Cells(1, i)
  15. End If
  16. Next i
  17. For i = 1 To N
  18. If Max <> Cells(1, i) Then
  19. Max = Cells(1, i)
  20. End If
  21. Next i
  22. MsgBox ("max=" & Abs(Max))

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.4 из 5

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы