Линейный массив: поиск элементов с заданными свойствами, сортировка - QBasic

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

Доброго времени суток, прошу совета, как сократить программу, очень уж громоздко получилось С одной стороны, и хочется всё как-нибудь в один-два цикла уместить, а не в лобуду, которая получилась, с другой - как ни пробую, теряю содержимое ячеек, а значит, фейлюсь. Задача простенькая: дана линейная табличка 4, -9, 45, 7, -67, -3, 29, 15, -4, 3. Надо напечатать первые 10 элементов, подсчитать их сумму и произведение, кол-во положительных и отрицательных элементов, определить максимальный и минимальный элементы массива. Надо ещё их потом упорядочить по возрастанию, ну да до этого ещё дойти надо, мне бы получившееся сначала свернуть по-человечески. Только не ругайте сильно, несколько месяцев к компилятору не подходила

                    Листинг программы
                
 
                        
                          
                    
CLS
DATA 4, -9, 45, 7, -67, -3, 29, 15, -4, 3
DIM E (1 TO 10) AS INTEGER
FOR I=1 TO 10
____READ E(I)
____? E(I);
NEXT I
S=0: P=1
FOR I=1 TO 10
____S=S+E(I): P=P*E(I)
NEXT I
? "Сумма равна";S;", а произведение";P
OTR=O: POL=0
FOR I=1 TO 10
       IF E(I)<0 THEN OTR=OTR+1
       IF E(I)>0 THEN POL=POL+1
NEXT I
? "Кол-во отриц-х чисел равно";OTR;", а положит-х";POL
MAX=E(1); MIN=E(1)
FOR I=1 TO 10
      IF MAX<E(I) THEN MAX=E(I)
      IF MIN>E(I) THEN MIN=E(I)
NEXT I
? "MAX=";MAX;", MIN=";MIN
END

Решение задачи: «Линейный массив: поиск элементов с заданными свойствами, сортировка»

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

DATA 4,-9,45,7,-67,-3,29,15,-4,3
FOR i = 0 TO 9
    READ a(i): PRINT a(i);
NEXT
p# = 1: PRINT
FOR i = 0 TO 9
    k = i: t = a(i)
    FOR j = i + 1 TO 9
        IF a(j) < t THEN k = j: t = a(j)
    NEXT
    SWAP a(i), a(k): PRINT a(i);
    sg = sg - (a(i) >= 0)
    s = s + a(i): p# = p# * a(i)
NEXT
PRINT CHR$(10); "max = "; a(9), , "min = "; a(0)
PRINT "sum = "; s, , "p = "; p#
PRINT "positive = "; sg, "negative = "; 10 - sg

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

В этом коде представлен сортировочный алгоритм для линейного массива. Вот список действий, которые он выполняет:

Массив a объявлен размером 10.
В цикле FOR с i от 0 до 9 включительно считываются элементы массива a и выводятся на экран.
В начале второго цикла FOR переменной k присваивается значение i, а переменной t — текущий элемент массива a(i).
Во внутреннем цикле FOR с j от i + 1 до 9 (то есть от i + 1 до 9) проверяется, есть ли элемент a(j) меньше текущего элемента массива t. Если такой элемент найден, то переменной k присваивается индекс этого элемента, а переменной t — значение этого элемента.
После внутреннего цикла FOR выполняется обмен элементов массива a с индексами i и k.
Выводится отсортированный элемент массива a(i).
Переменной sg присваивается единица, если элемент a(i) больше или равен нулю, и ноль в противном случае.
Переменной s присваивается сумма всех отсортированных положительных элементов массива a.
Переменной p# присваивается произведение всех отсортированных элементов массива a.
Выводится сообщение с максимальным элементом массива a(9), минимальным элементом массива a(0), суммой положительных элементов массива s и произведением всех элементов массива p#.
Выводится сообщение с количеством положительных элементов массива sg и количеством отрицательных элементов 10 - sg.