Заполните случайным образом одномерный массив из n элементов и обменяйте элементами местами

CLS
PRINT "Задание № 1"
INPUT "Введите N: ", N
REDIM A(1 TO N)
FOR I = 1 TO N
  A(I) = I * 2 - 1
  PRINT A(I);
NEXT I
PRINT
PRINT "===================================="
PRINT
PRINT "Задание № 2"
INPUT "Введите N: ", N
REDIM B(1 TO N)
PRINT "Исходный массив:"
FOR I = 1 TO N
  B(I) = INT(RND * 100)
  PRINT B(I);
NEXT I
FOR I = 1 TO N / 2
  SWAP B(I), B(N - I + 1)
NEXT I
PRINT
PRINT "Полученный массив:"
FOR I = 1 TO N
  PRINT B(I);
NEXT I
PRINT
PRINT "===================================="
PRINT
PRINT "Задание № 3"
INPUT "Введите N: ", N
REDIM C(1 TO N, 1 TO N)
FOR Y = 1 TO N
  FOR X = 1 TO N
    IF X < N - Y + 1 THEN
      C(Y, X) = 0
    ELSE
      C(Y, X) = X
    END IF
    PRINT C(Y, X);
  NEXT X
  PRINT
NEXT Y
PRINT "===================================="
PRINT
PRINT "Задание № 4"
INPUT "Введите N: ", N
REDIM D(1 TO N, 1 TO N)
PRINT "Исходный массив:"
FOR Y = 1 TO N
  FOR X = 1 TO N
      D(Y, X) = INT(RND * 100)
      PRINT D(Y, X);
  NEXT X
  PRINT
NEXT Y
S1 = N
S2 = N
FOR Y = 1 TO N - 1
  IF D(S1, 1) < D(Y, 1) THEN S1 = Y
  IF D(S2, N) < D(Y, N) THEN S2 = Y
NEXT Y
SWAP D(S1, 1), D(S2, N)
PRINT "Полученный массив:"
FOR Y = 1 TO N
  FOR X = 1 TO N
      PRINT D(Y, X);
  NEXT X
  PRINT
NEXT Y