Разработать информационную технологию, позволяющую определить количество отрицательных элементов в одномерном массиве А произвольной размерности m.
Входные данные: m – целое число;
A=[ai], – массив целых чисел.
Выходные данные: t - количество элементов массива, имеющих отрицательные значения, целое число.
Математическая модель:
t = 0;
для i = 1.. m, если ai < 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