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
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.