По двум массивам посторить третий, элементы котого являются частными от деления эменетов первого на соответсвующие элементы второго

CLS
OPTION BASE 1
DIM n AS LONG
INPUT ; "Введите размероность массива (не более 10000) = ", n
PRINT : COLOR 7, 0
CLS : PRINT "Результат работы программы:": PRINT
DIM a(1 TO n) AS LONG, b(1 TO n) AS LONG, c(1 TO n) AS SINGLE
RANDOMIZE (time)
k = 1
FOR i = 1 TO n
      a(i) = RND(1) * 1000 - 500: b(i) = RND(1) * 1000 - 500
      PRINT USING "&####&####"; " a["; i; "]= "; a(i);
      PRINT USING "&####&####"; "       b["; i; "]= "; b(i);
      IF b(i) = 0 THEN
         c(i) = 2: COLOR 14
                  ELSE
         c(i) = a(i) / b(i):
      END IF
   PRINT USING "&####&####.####"; "      c["; i; "]= "; c(i): COLOR 7
   k = k + 1:
   IF k >= 20 THEN
      PRINT
      PRINT "<ESC> - закончить, любая другая клавиша - продолжение ... "
      ch$ = INPUT$(1)
      IF ch$ = CHR$(27) THEN END
      k = 1: CLS : PRINT "Результат работы программы:": PRINT
   END IF
 
NEXT i

CLS
OPTION BASE 1
DIM n AS LONG
INPUT ; "Введите размероность массива (не более 10000) = ", n
PRINT : COLOR 7, 0
CLS : PRINT "Результат работы программы:": PRINT
DIM a(1 TO n) AS LONG, b(1 TO n) AS LONG, c(1 TO n) AS SINGLE
RANDOMIZE (time)
k = 1
FOR i = 1 TO n
      a(i) = RND(1) * 1000 - 500: b(i) = RND(1) * 1000 - 500
      PRINT USING "&####&####"; " a["; i; "]= "; a(i);
      PRINT USING "&####&####"; "       b["; i; "]= "; b(i);
      IF b(i) = 0 THEN
         c(i) = 2: COLOR 14
                  ELSE
         c(i) = a(i) / b(i):
      END IF
 
   PRINT USING "&####&####.####"; "      c["; i; "]= "; c(i): COLOR 7
   k = k + 1:
   IF k >= 20 THEN
      PRINT
      PRINT "<ESC> - закончить, любая другая клавиша - продолжение ... "
      ch$ = INPUT$(1)
      IF ch$ = CHR$(27) THEN GOTO enden
      k = 1: CLS : PRINT "Результат работы программы:": PRINT
   END IF
 
NEXT i
enden:
     Sum = 0: Max = c(1)
     FOR i = 1 TO n
         Sum = Sum + c(i)
         IF Max < c(i) THEN
            Max = c(i): maxi = i
         END IF
     NEXT i
     Sr = Sum / n
     PRINT
     PRINT USING "&###.####"; "Максимальный эелемент массива С (третьего) = "; Max
     PRINT USING "&###"; "Его номер = "; maxi
     PRINT USING "&###.####"; "Среднее арифметическое массива С (третьего) = "; Sr
     PRINT USING "&###.####"; "Отклонение максимального от среднего = "; Max - Sr
END