Найти наибольший отрицательный и наименьший положительный элементы массива (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

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


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

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

12   голосов , оценка 3.833 из 5
Похожие ответы