Вычислить количество нулевых элементов массива - QBasic

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

Здравствуйте! помогите пожалуйста проверить код и блок схему. Дан массив А(10). Вычислить количество нулевых элементов, сумму положительных элементов и среднее значение отрицательных элементов массива

DIM a(10)
DATA 0,1,2,3,4,5,6,7,8,9
PRINT "Мой Массив"
FOR i=1 TO 10
 READ a(i)
 PRINT a(i)
NEXT i
PRINT
 
Knul=0, sum=0, Kotr=0, sumotr=0
Fori=1 TO 10
 IF a(i)=0 THEN
    Knull=Knull+1
 END IF
 IF a(i)>0 THEN
    sum=sum+a(i)
 END IF
 IF a(i)<0 THEN
    sumotr=sumotr+a(i)
    Kotr=Kotr+1
 END IF
NEXT i
sr = sumotr/Kotr
PRINT Knull
PRINT sum
PRINT sr
END

Решение задачи: «Вычислить количество нулевых элементов массива»

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

DIM a(10)
DATA 0,1,2,3,4,5,6,7,8,9
 
PRINT "Мой Массив"
 
FOR i=1 TO 10
   READ a(i)
   PRINT a(i)
NEXT i
 
PRINT 
 
Knul=0, sum=0, Kotr=0, sumotr=0
 
FOR i=1 TO 10
   IF a(i)=0 THEN
      Knull=Knull+1    
   END IF
   IF a(i)>0 THEN
      sum=sum+a(i)   
   END IF
   IF a(i)<0 THEN
      sumotr=sumotr+a(i)
      Kotr=Kotr+1
   END IF
NEXT i
 
sr = sumotr/Kotr
PRINT Knull
PRINT sum
PRINT sr
 
END

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

В этом коде:

Создается массив a(10) и заполняется данными с помощью команды DATA.
Выполняется цикл FOR, который проходит по всем элементам массива a(10).
В каждой итерации цикла, с помощью команды READ, вводится значение текущего элемента массива.
Затем значение текущего элемента массива выводится на экран с помощью команды PRINT.
После выполнения цикла, выводится символ новой строки с помощью команды PRINT.
Создаются четыре переменные: Knul, sum, Kotr и sumotr. Значения этих переменных инициализируются нулем.
Выполняется второй цикл FOR, который также проходит по всем элементам массива a(10).
Внутри цикла проверяется значение текущего элемента массива.
Если элемент равен нулю, то к переменной Knul прибавляется единица.
Если элемент больше нуля, то к переменной sum прибавляется значение текущего элемента массива.
Если элемент меньше нуля, то к переменной sumotr прибавляется значение текущего элемента массива, а к переменной Kotr прибавляется единица.
После выполнения второго цикла, вычисляется среднее значение отрицательных элементов массива с помощью формулы sr = sumotr/Kotr.
Затем выводятся значения переменных Knul, sum и sr.
Код завершается командой END.