Задать вопрос
30 августа, 12:40

Создать процедуру на языке VBA

Дана последовательность целых чисел a1, ... a45. Получить число отрицательных элементов последовательности a1, ... a35 и число нулевых элементов всей последовательности.

+1
Ответы (1)
  1. 30 августа, 14:02
    0
    Требуемая процедура

    Sub ex1 (ByRef a () As Integer, ByRef nn As Integer, ByRef nz As Integer)

    Dim i As Integer

    nn = 0: nz = 0

    For i = 1 To 45

    If a (i) = 0 Then

    nz = nz + 1

    Else

    If a (i) < 0 And i < = 35 Then

    nn = nn + 1

    End If

    End If

    Next i

    End Sub

    Процедура для тестирования с выводом на лист Excel

    Sub Test ()

    Dim p (1 To 45) As Integer

    Dim n1 As Integer, n2 As Integer, i As Integer

    Randomize Timer

    For i = 1 To 45

    p (i) = Int (25 * Rnd - 12)

    Cells (i, 1) = p (i)

    Next i

    ex1 p, n1, n2

    Cells (1, 2) = n1

    Cells (1, 3) = n2

    End Sub
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Создать процедуру на языке VBA Дана последовательность целых чисел a1, ... a45. Получить число отрицательных элементов последовательности ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы