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

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

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

+3
Ответы (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. Получить число отрицательных элементов последовательности ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Составить программу: 1. Дана последовательность чисел. Найти количество отрицательных элементов. Последовательность целых чисел Найти сумму между максимальными и минимальным элементом последовательность 0-признак конца ведения последовательности. 2.
Ответы (1)
Дан массив из N целочисленных элементов. найти максимальное количество подряд идущих нулевых элементов. Гарантируется, что в массиве есть хотя бы одна пара рядом стоящих нулевых элементов.
Ответы (1)
1. Дан массив натуральных чисел. Найти сумму элементов кратных данному К. 2. В целочисленной последовательности есть нулевые элементы. Создать массив из номеров этих элементов. 3. дана последовательность целых чисел а1, а2, ... аn.
Ответы (1)
Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов
Ответы (1)
При помощи датчика случайных чисел вводится последовательность a, состоящая из N (случайное трёхзначное число) целых положительных случайных 4-х значных чисел. Получить последовательность b, куда включить только простые числа из последовательности а.
Ответы (1)