составить программу на алгоритмическом языке QBASIC одномерного массива

[TRINITI23]

помогите ето зделать, а то у меня совсем не виходит сложить ету программу
Условие: для одномерного числового массива A(N), длиной N сложить алгоритм и программу на алгоритмическом языке QBASIC для нахождения части от деления произведения элементов массиве на сумму этих элементов
N=15
А(I) 2, 5, 19, - 6, 4, 9, 19, - 2, 4, 6, 11, - 12, 15, 7, 11

нам учитель чтото показивал как делать вот пример (но я ничего не понимаю) и он казал что должна бить отдельно написана деления (D), сумму (S) а в конце гдето части каторую ми нашли, и сначали S и D надо писать = 0, чтоби шчот шол з 0
толко у меня чтото не виходит їх найти

A(n)
N=15
А(I) 2, 5, 19, -36, 4, 9, 19, -22, 64, 6, 71, -12, 85, 24, 11
Input “n=”; n
Dim A(n)
For i=1 to 15
Input A(i)
Next i
K=A(15)
D=
S=
If a (i)>k them k=a(i)
Next i
Print “Chastka =”;
End

заранье спасибо