Найти наибольший отрицательный и наименьший положительный элементы массива (Pascal -> VB)
Формулировка задачи:
В заданном векторе (одномерном массиве) найти: наибольший отрицательный и наименьший положительные элементы.
Решение задачи: «Найти наибольший отрицательный и наименьший положительный элементы массива (Pascal -> VB)»
textual
Листинг программы
Option Explicit Const N = 15 Const A = 100 Private Sub Form_click() Dim Vec(N) ' числовой массив Vec Dim i As Integer, Max As Integer, Min As Integer Randomize Cls Print "Массив Vec" ' Печать на Форме - Массив Vec For i = 0 To N Vec(i) = Int(Rnd * A) - 50 ' формирование массива случайных чисел от-50 до+50 Print Vec(i); ' вывод массива в строку на форму Next Print Min = A: Max = Vec(0) For i = 0 To N If Vec(i) < 0 And Abs(Vec(i)) < Abs(Max) Then Max = Vec(i) ElseIf Vec(i) >= 0 And Vec(i) < Min Then Min = Vec(i) End If Next Print Max, Min; End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д