Ответы Mail
Образование
ВУЗы, Колледжи
Детские сады
Школы
Дополнительное образование
Образование за рубежом
Прочее образование
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
(Visual Basic)вот нужна очень помощь… сижу и пришел в тупик с решением… НАЙТИ ЧИСЛО НУЛЕВЫХ ЭЛЕМЕНТОВ МАССИВА Y(N)
Сергей Павлов
(492),
на голосовании
12 лет назад
Голосование за лучший ответ
Oler
(14683)
12 лет назад
a=0
for i=1 to n
if Y(i)=0 then a=a+1
next i
Label1.Captiоn=a ' вывод числа нулевых элементов
for i=1 to n
if Y(i)=0 then a=a+1
next i
Label1.Captiоn=a ' вывод числа нулевых элементов
Похожие вопросы
Const N = 15
Dim Y(1 To N) As Integer, O As Integer, K As Integer
Private Sub CommandButton1_Click()
Label3.Caption = «»
For i = 1 To N
Y(i) = Rnd * 20 — 10
Label3.Caption = Label3.Caption + «» + Str(Y(i))
Next
End Sub
Private Sub CommandButton2_Click()
Что дальше? помогите, ПОЖАЛУЙСТА! (Microsoft Visual Basic)