Вывести элементы массива с нечетными номерами в порядке убывания номера - VB
Формулировка задачи:
Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN, AN−2, AN−4, …, A1. Условный оператор не использовать.
Решение задачи: «Вывести элементы массива с нечетными номерами в порядке убывания номера»
textual
Листинг программы
- Option Explicit
- Dim i%, N%
- Private Sub com1_Click()
- Randomize Timer
- N = Val(txtT.Text)
- ReDim A%(N)
- For i = 1 To N
- A(i) = 40 * Rnd
- Print Format(A(i), " 00");
- Next
- Print: Print
- For i = N To 1 Step -2
- Print Format(A(i), " 00");
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
