Пример 13

Разработать информационную технологию, позволяющую определить количество отрицательных элементов в одномерном массиве А произвольной размерности m.

Входные данные: m – целое число;

A=[a_i], – массив целых чисел.

Выходные данные: t - количество элементов массива, имеющих отрицательные значения, целое число.

Математическая модель:

t = 0;

для i = 1.. m, если a_i < 0, то t = t + 1;

если t = 0, вывод сообщения

Схема алгоритма:

Код приложения:

Option Base 1

Private Sub Command1_Click()

Dim m As Integer, i As Integer, t As Integer, a() As Integer

m=InputBox(“Введите размерность”)

ReDim a(m)

t=0

For i=1 To m

a(i)=InputBox(“a(“ & i & ”)”)

Print a(i);

If a(i)<0 then t=t+1

Next

If t=0 then

MsgBox “Отрицательных элементов в массиве нет!”

Else

MsgBox “ В массиве ” & t & ”отрицательных элементов”

End If

End Sub