Вывести элементы массива с нечетными номерами в порядке убывания номера - VB

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

Дан массив A размера N (N — нечетное число). Вывести его элементы с нечетными номерами в порядке убывания номеров: AN, AN−2, AN−4, …, A1. Условный оператор не использовать.

Код к задаче: «Вывести элементы массива с нечетными номерами в порядке убывания номера - VB»

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

6   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ