Вывести элементы массива с нечетными номерами в порядке убывания номера - 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

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

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