По 2 массивам построить 3-й,элементы которого являются частными от деления элементов первого на соответствующие элементы второго массива.Если делитель ноль,заменить его двойкой.В полученном массиве найти отклонение max от среднего арифметического — QBasic(Бейсик)

CLS
RANDOMIZE TIMER
n = 10
DIM a(n), b(n), c(n)
FOR i = 1 TO n: a(i) = FIX(RND * 100): NEXT
FOR i = 1 TO n: b(i) = FIX(RND * 100): NEXT
FOR i = 1 TO n
    IF b(i) <> 0 THEN c(i) = a(i) / b(i) ELSE c(i) = a(i) / 2
NEXT
max = c(1)
FOR i = 1 TO n
    IF c(i) > max THEN max = c(i)
    s = s + c(i)
NEXT
sr = s / n
PRINT "massiv 1"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "massiv 2"
FOR i = 1 TO n
    PRINT b(i);
NEXT
PRINT
PRINT "massiv 3"
FOR i = 1 TO n
    PRINT c(i);
NEXT
PRINT
PRINT "max ="; max
PRINT "sr ="; sr
PRINT "otklonenie max ot srednego arifmeticheskogo ="; max - sr

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment