Заменить в масиве из 20 случайных целых чисел в пределах от 0 до 10 [VB]

Узнай цену своей работы

Формулировка задачи:

Заменить в масиве из 20 случайных целых чисел в пределах от 0 до 10 все четные елементы нулями и вывести результаты на форму.

Решение задачи: «Заменить в масиве из 20 случайных целых чисел в пределах от 0 до 10 [VB]»

textual
Листинг программы
Private Sub Command1_Click()
Dim i As Byte, mas(1 To 20) As Byte, s As String, s2 As String
Cls
s = ""
s2 = ""
For i = 1 To 20
mas(i) = Int((11 + 0) * Rnd() + (0))
s = s & " " & Str(mas(i))
If mas(i) Mod 2 = 0 Then mas(i) = 0
s2 = s2 & " " & Str(mas(i))
Next
Print s
Print s2
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы