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

+ 0 -

Alice20

07 окт. 2013 г., 7:24:59 (10 лет назад)

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

+ 0 -

Рональда

07 окт. 2013 г., 8:45:44 (10 лет назад)

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.