Определить сумму элементов массива X(n), предшествующих первому отрицательному числу - QBasic

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

Лабораторная работа №4. Массивы Задача 1. Определить сумму элементов массива X(n), предшествующих первому отрицательному числу. Вывести исходный массив и полученное значение. Упорядочить массив X(n) по неубыванию. Вывести полученный массив. Исходный массив элементов получить с помощью датчика случайных чисел. Значения буквенных переменных задавать с клавиатуры. Задача 2. Дана матрица целых чисел X(n, т). Переставляя строки и столбцы, добиться, чтобы максимальный элемент матрицы переместился в левый верхний угол. Вывести исходную и полученную матрицы. Значения буквенных переменных задавать с клавиатуры.

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

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

CLS
RANDOMIZE TIMER
INPUT "N = "; n
DIM x(1 TO n) AS INTEGER
 
FOR i = 1 TO n
   x(i) = 40 * RND - 20
   PRINT x(i);
NEXT i
PRINT : PRINT
IF x(1) < 0 THEN PRINT "SUMMA NEOPREDELENA": GOTO 88
   
FOR i = 1 TO n
   IF x(i) >= 0 THEN
      s = s + x(i)
   ELSE
      EXIT FOR
   END IF
NEXT i
 
IF i <= n THEN
   PRINT "SUMMA ="; s
ELSE
   PRINT "OTRICATELNYH CHISEL NET"
END IF
PRINT
 
FOR i = 1 TO n - 1
FOR j = i + 1 TO n
   IF x(i) > x(j) THEN SWAP x(i), x(j)
NEXT j, i
 
FOR i = 1 TO n
   PRINT x(i);
NEXT i
 
88
END

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

В этом коде:

Создается массив x размером n, заполняемый случайными целыми числами от -20 до 20.
Выполняется цикл по всем элементам массива x. Если текущий элемент меньше нуля, то сразу выходим из цикла.
Инициализируется переменная s равной нулю.
Выполняется цикл по всем элементам массива x. Если текущий элемент больше или равен нулю, то к переменной s прибавляется его значение.
Если цикл закончился до достижения конца массива, то выводится сообщение с суммой.
Если цикл закончился после достижения конца массива, то выводится сообщение OTRICATELNYH CHISEL NET.
Выполняется два вложенных цикла, в котором происходит сортировка массива x по возрастанию.
Выводится сообщение с отсортированным массивом x.
Код повторяется с начала, пока не будет достигнуто условие окончания.