Сформировать массив из 8 натуральных случайных чисел в диапазоне от -10 до 10 - QBasic

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

сформировать массив из 8 натуральных случайных чисел в диапазоне от -10 до 10. найти количество положительных элементов массива и их сумму.)))Срочно нужно Если не в падлу))Спс заранее

Решение задачи: «Сформировать массив из 8 натуральных случайных чисел в диапазоне от -10 до 10»

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

RANDOMIZE TIMER
DIM a(8)
FOR i = 1 TO 8
a(i) = INT(RND(1)*21)-10
PRINT a(i);
IF a(i)>0 THEN k=k+1: s=s+a(i)
NEXT
PRINT
PRINT "Kolvo polozhit=";k;" Ih Summa=";s

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

RANDOMIZE TIMER - функция, которая инициализирует генератор случайных чисел
DIM a(8) - создание массива из 8 элементов, где каждый элемент имеет тип данных INTEGER
FOR i = 1 TO 8 - цикл, который выполняется 8 раз, где i является индексом элемента массива a
a(i) = INT(RND(1)*21)-10 - генерация случайного числа в диапазоне от -10 до 10 и приведение его к типу INTEGER. Здесь RND(1) - это функция, которая возвращает случайное число от 0 до 1, а INT(RND(1)*21) - это функция, которая округляет это случайное число до ближайшего целого числа в диапазоне от -10 до 10.
PRINT a(i); - печать значения элемента массива a
IF a(i)>0 THEN k=k+1: s=s+a(i) - если значение элемента массива a больше 0, то увеличиваем счетчик k на 1 и прибавляем значение элемента массива a к сумме s
NEXT - переход к следующему циклу
PRINT - печать строки
PRINTKolvo polozhit=;k; Ih Summa=;s - печать строки, которая отображает количество положительных чисел и их сумму