По двум массивам построить третий - QBasic (27959)

Формулировка задачи:

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

Решение задачи: «По двум массивам построить третий»

Листинг программы

n = 15
DIM a(n), b(n), c(n)
FOR i = 1 TO n
    PRINT "vvedite a("; i; "): "
    INPUT a(i)
NEXT
FOR i = 1 TO n
    PRINT "vvedite b("; i; "): "
    INPUT b(i)
NEXT
FOR i = 1 TO n
    IF a(i) = 0 THEN c(i) = 1 ELSE c(i) = b(i) / a(i)
NEXT
FOR i = 1 TO n
    PRINT c(i);
NEXT
PRINT
max = c(1)
FOR i = 1 TO n
    IF c(i) > max THEN max = c(i)
    sum = sum + c(i)
NEXT
PRINT "max-sr="; max - sum / n

Объяснение кода листинга программы

Задается число n = 15, которое определяет размер массивов a, b и c.
Создаются три массива a, b и c размером n.
Два цикла FOR запрашивают значения для массива a и b.
Третий цикл FOR вычисляет значения для массива c на основе значений a и b.
Четвертый цикл FOR выводит значения массива c.
Значение max и sum инициализируются.
Пятый цикл FOR находит максимальное значение в массиве c и обновляет max, а также суммирует все значения в массиве c и обновляет sum.
Выводится значение max - sum/n.