Дан одномерный массив D(N): вычислить сумму и количество положительных и отрицательных элементов массива, установить каких(отрицательных или положительных) элементов больше. Размер исходного массива N ввести с клавиатуры.Вывести на экран монитора все результаты и исходный массив.проверить правильность выполнения программы с помощью тестового варианта(N=4)- QBasic(Бейсик)

INPUT "vvedite razmer massiva ", n
DIM d(n)
FOR i = 1 TO n
    INPUT "vvedite element ", d(i)
NEXT
PRINT "massiv"
FOR i = 1 TO n
    PRINT d(i);
NEXT
PRINT
FOR i = 1 TO n
    IF d(i) > 0 THEN kp = kp + 1: sp = sp + d(i)
    IF d(i) < 0 THEN ko = ko + 1: so = so + d(i)
NEXT
PRINT "popojitelnyh"; kp
PRINT "otricatelnyh"; ko
PRINT "summa polojitelnih="; sp
PRINT "summa otricatelnyh="; so
IF kp > ko THEN PRINT "polojitelnyh bolche" ELSE IF ko > kp THEN PRINT "otricatelnyh bolshe" ELSE PRINT "odinakovo"