Найти отклонение минимального элемента от среднего арифметического для третьего массива

Наташка95

Помогите решить пожалуйста!!!)) заранее спасибо!!))Даны два массива по 20 элементов. Найти отклонение минимального элемента от среднего арифметического для третьего массива, элементы которого-произведение соответствующих элементов исходных массивов. Результаты распечатать в виде таблицы.массивы #п/п 1 2 3MIN-MO=
1 ответ

Наташка95

Вот, как-то так:
CLS
OPTION BASE 1
DIM n AS LONG
n = 20
CLS : PRINT "Первый массив:    Второй массив:        Третий массив:":
DIM a(1 TO n) AS LONG, b(1 TO n) AS LONG, c(1 TO n) AS SINGLE
FOR i = 1 TO n
     RANDOMIZE TIMER
      a(i) = RND(10) * 1000 - 500: b(i) = RND(10) * 1000 - 500
      PRINT USING "&##&####"; " a["; i; "]= "; a(i);
      PRINT USING "&##&####"; "       b["; i; "]= "; b(i);
      c(i) = a(i) * b(i):
      PRINT USING "&##&##########"; "        c["; i; "]= "; c(i)
      'IF i <= 20 THEN PRINT
NEXT i
     Sum = 0: Min = c(1)
     FOR i = 1 TO n
         Sum = Sum + c(i)
         IF Min > c(i) THEN
            Min = c(i): mini = i
         END IF
     NEXT i
     Sr = Sum / n
     PRINT USING "&########"; "Минимальный эелемент массива С (третьего) = "; Min;
     PRINT USING "&###"; "    Его номер = "; mini
     PRINT USING "&########.####"; "Среднее арифметическое массива С (третьего) = "; Sr
     PRINT USING "&########.####"; "Отклонение минимального от среднего = "; Sr - Min;
     Ch$ = INPUT$(1)
END