Определить количество отрицательных элементов массива - QBasic

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

Доброго времени суток!Решите не сложные задачки,если не трудно,буду признателен!)

Задача 1

Определить количество отрицательных элементов массива Х(п), заменить их на их модули. Вывести исходный и полученный массивы, число отрицательных элементов исходного массива. Упорядочить массив X(n) по убыванию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры.

Задача 2

Определить сумму ASCII-кодов символов, составляющих строку а$. Вывести полученное значение и строку b$, состоящую из символов, ASCII-коды которых на заданное число п больше соответствующих символов строки а$.

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

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

CLS
DIM a AS STRING
DIM b AS STRING
DIM c AS STRING
n = 10
a = "ABCDEFGH"
 
FOR i = 1 TO LEN(a)
   c = MID$(a, i, 1)
   s = s + ASC(c)
   b = b + CHR$(ASC(c) + n)
NEXT i
 
PRINT a; "  s ="; s
PRINT b
END

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

CLS - очистка экрана
DIM a AS STRING - объявление переменной типа строка с именем a
DIM b AS STRING - объявление переменной типа строка с именем b
DIM c AS STRING - объявление переменной типа строка с именем c
n = 10 - присваивание переменной n значение 10
a =ABCDEFGH` - присваивание переменнойaзначениеABCDEFGH`
FOR i = 1 TO LEN(a) - начало цикла, который будет выполняться для каждого символа в строке a
c = MID$(a, i, 1) - присваивание переменной c значение i-го символа строки a
s = s + ASC(c) - прибавление значения ASCII символа c к переменной s
b = b + CHR$(ASC(c) + n) - прибавление символа, соответствующего ASCII значению c плюс n, к переменной b
NEXT i - переход к следующему шагу цикла
PRINT a; s =; s - вывод на экран строки a и значения переменной s
PRINT b - вывод на экран значения переменной b
END - конец программы