{* Задача154 *}

REM basic

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


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
End