Вычислить сумму положительных элементов одномерного массива состоящий из 11 элементов - QBasic

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

Помогите пожалуйста сделать задачи,вобще не понимаю как их делать а то 18.05.2011надо будеть писать их в контрольной работе!!! Задача№1 Составить программу которая вычисляет сумму положительных элементов одномерного массива состоящий из 11 элементов. Задача №2 Составить программу которая находит минимальное значение минимального элемента двумерного массива размером 4*3.

если кто сможет мне помочь можите написать по электронной почте removed@mail.ru

Решение задачи: «Вычислить сумму положительных элементов одномерного массива состоящий из 11 элементов»

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

Dim a(11)
For i=1 to 11 
Input "vvedite element";a(i)
Next
For i=1 to 11
If a(i)>0 then s=s+a(i)
Next
Print "s=";s

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

В этом коде:

Объявляется одномерный массив a(11) размером 11 элементов.
В цикле от 1 до 11 происходит запрос на ввод элемента массива a(i).
Затем в цикле от 1 до 11 проверяется каждый элемент массива a(i). Если он больше нуля, то к переменной s прибавляется значение этого элемента.
В конце выводится значение переменной s.