Поделить на два все четные элементы одномерного массива, содержащего 8 элементов - VB
Формулировка задачи:
2) Поделить на два все четные элементы одномерного массива, содержащего 8 элементов. Значения элементов массива вводятся с клавиатуры. Вывести на экран исходный и новый массив.
Решение задачи: «Поделить на два все четные элементы одномерного массива, содержащего 8 элементов»
textual
Листинг программы
Option Explicit Private Sub Command1_Click() Dim i As Integer Dim a(10) As Integer For i = 1 To 8 a(i) = InputBox("Введите число") Print a(i) Next i For i = 1 To 8 If a(i) \ 2 = a(i) / 2 Then a(i) = a(i) / 2 End If Print a(i) Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д