Определить сумму отрицательных и количество положительных элементов массива X(n) - QBasic

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

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

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

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

CLS
RANDOMIZE TIMER
INPUT "Введите N:", N
DIM X(N)
PRINT "Исходный массив:"
FOR I = 0 TO N
    X(I) = INT(RND * 199) - 100
    PRINT X(I);
    IF X(I) < 0 THEN Summa = Summa + X(I)
    IF X(I) > 0 THEN Count = Count + 1
NEXT I
PRINT
PRINT "Сортировка..."
FOR I = 0 TO N
    FOR J = 0 TO N - 1
      IF X(J) < X(J + 1) THEN
          SWAP X(J), X(J + 1)
      END IF
    NEXT J
NEXT I
PRINT "Полученный массив:"
FOR I = 0 TO N
    PRINT X(I); " ";
NEXT I
PRINT
PRINT "Сумма отрицательных элементов: "; Summa
PRINT "Количество положительных элементов: "; Count

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

В первой строке используется команда CLS для очистки экрана.
Следующая строка RANDOMIZE TIMER используется для инициализации генератора случайных чисел.
В строке INPUT Введите N:, N запрашивается у пользователя ввод числа N, которое определит размер массива.
Строка DIM X(N) используется для создания массива X(N).
В цикле FOR I = 0 TO N, который перебирает элементы от 0 до N, каждый элемент массива X(I) присваивается случайное число в диапазоне от -100 до 199 с шагом 1.
С помощью оператора IF проверяется, является ли текущий элемент массива отрицательным, и если это так, то к переменной Summa добавляется значение текущего элемента.
С помощью оператора IF проверяется, является ли текущий элемент массива положительным, и если это так, то к переменной Count добавляется единица.
Цикл NEXT I используется для перехода к следующему элементу массива.
После заполнения массива выводится сообщение PRINT Исходный массив:, а затем элементы массива.
Выводится сообщение PRINT Сортировка..., а затем с помощью вложенного цикла FOR осуществляется сортировка массива по возрастанию.
Выводится сообщение PRINT Полученный массив:, а затем элементы отсортированного массива.
Выводится сообщение PRINT Сумма отрицательных элементов:, а затем значение переменной Summa.
Выводится сообщение PRINT Количество положительных элементов:, а затем значение переменной Count.