Найти сумму положительных и отрицательных элементов массива - QBasic

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

Ввести с клавиатуры массив(8 чисел) а)Вывести массив на экран в строку б)найти сумму положительных элементов в)найти количество отрицательных элементов г)вывести на экран элементы,стоящие на четных местах д)Найти минимальный элемент и поменять местами с последним е)Отрицательные элементы заменить 0

Решение задачи: «Найти сумму положительных и отрицательных элементов массива»

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

ввод и вывод на экран массива есть в шапке
s=0
k=0
FOR i=1 TO 8
IF a(i)>0 THEN s=s+a(i)
IF a(i)<0 THEN k=k+1 
IF i MOD 2 = 0 THEN PRINT a(i)
NEXT i
PRINT "summa elementov";s
PRINT "otricatelnih elementov";k
это а,б,в,г

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

В начале кода объявлены переменные: массив a(8), переменные s и k, которые будут использоваться в дальнейшем. Значение переменной s изначально равно 0, а значение переменной k равно 0.
Далее идет цикл for, который выполняется 8 раз, по каждому элементу массива a.
Внутри цикла проверяется условие: если элемент массива a(i) больше 0, то значение переменной s увеличивается на значение элемента массива a(i).
Если условие выполняется, то значение переменной k увеличивается на 1.
Если i MOD 2 = 0, то значение элемента массива a(i) выводится на экран.
После завершения цикла, выводится значение переменной s, которое представляет собой сумму всех положительных элементов массива.
Затем выводится значение переменной k, которое представляет собой количество отрицательных элементов массива.