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

Извените, а можно эту задачу решить в паскале?пожалуйста)

Уже решили))

Visual Basic.NETImports System.ConsoleModule 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 SubEnd Module

var  a: array [1..30] of integer;  i, k: integer;begin  for i := 1 to 30 do  begin    a[i] := i;    writeln('a[', i, '] => ', a[i]);  end;  writeln();  for i := 1 to 15 do  begin    k := a[i];    A[i] := A[31 - i];    A[31 - i] := k;  end;  for i := 1 to 30 do    writeln('a[', i, '] => ', a[i]);end.