Задача на цикл и разветвление. - QBasic

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

Помогите, кто может, решить эти задачи....горю, одна надежда - вы... Дана последовательность n-чисел, найти: 1)Сумму и произведение всех чисел 2)Сумму, произведение и количество чисел по условию, положительных и отрицательных 3)Среднеарифметическое всех чисел, а также положительное, отрицательное, не отрицательное p.s. Задача на цикл и разветвление Помогите, пожалуйста, вроде звучит не сложно, но как решить и записать не знаю, а скоро экзамены....хотя бы подскажите , где можно найти решение Заранее благодарю

Решение задачи: «Задача на цикл и разветвление.»

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

INPUT "vvdite n"; n
p = 1
s = 0
FOR i = 1 TO n
    INPUT "vvedite element"; q
    p = p * q
    s = s + q
NEXT
PRINT "p="; p
PRINT "s="; s

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

В начале программы происходит ввод двух чисел: n и q.
Затем создаются две переменные: p и s, и инициализируются начальными значениями (p=1, s=0).
Далее идет цикл от 1 до n, в котором после каждого шага происходит ввод числа q, затем увеличение значения p на q и увеличение значения s на q.
После завершения цикла выводятся значения переменных p и s.