Опубликовано 03.01.2018 по предмету Информатика от Гость

Помогите решить пожалуйста. линейные массивы.
1.Замена.- переписать линейныймассив вещественных чисел b(30) в обратном порядке.

Ответ оставил Гость

Visual Basic.NET
Imports System.Console

Module Module1
    Sub Main()
        Dim Rnd As Random = New Random()
        Dim A(30) As Integer
        Dim k As Integer
        Dim i As Byte
        For i = 0 To A.Length - 1
            A(i) = i Rnd.Next(255)
            WriteLine("A({0}) => {1}", i, A(i))
        Next
        WriteLine()
        i = 0
        For i = 0 To Math.Truncate(A.Length / 2)
            k = A(i)
            A(i) = A(A.Length - i - 1)
            A(A.Length - i - 1) = k
        Next
        For k = 0 To A.Length - 1
            WriteLine("A({0}) => {1}", k, A(k))
        Next
        ReadKey(False)
    End Sub
End Module

Не нашел нужный ответ?

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.


Найти другие ответы
Самые новые вопросы