Помогите решить пожалуйста. линейные массивы.1.Замена.- переписать линейныймассив...

Question

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

Answer 1

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

Comments

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

---

Уже решили))

Answer 2

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.