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

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

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

Текст задачи Дан массив А размера N. Вывести его элементы в следующем порядке: A1, AN, A2, AN-1, A3, AN-2 …

Решение задачи: «Вывести элементы массива в заданном порядке»

textual
Листинг программы
Option Explicit
 
Dim i%, N%
 
Private Sub com1_Click()
    Cls
    Randomize Timer
    N = Val(txtT.Text)
    
    ReDim A%(1 To N)
    Print "дано"
    
    For i = 1 To N
        A(i) = 80 * Rnd
        Print Format(A(i), "00  ");
    Next
    Print: Print
    Print "иной порядок"
    For i = 1 To N \ 2
        If N Mod 2 = 0 Then
            Print Format(A(i), "00  ");
            Print Format(A(N + 1 - i), "00  ");
        Else
            Print Format(A(i), "00  ");
            Print Format(A(N + 1 - i), "00  ");
            If i = N \ 2 Then Print Format(A(i + 1), "00  ");
        End If
    Next i
End Sub

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

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