Программа QBASIC. Одномерный массив из 7 элементов (-1,0,-5, -3, 4, 8, 1). Определите количество отрицательных чисел массива.

Предыдущий
вопрос Следующий
вопрос

10 REM QBASIC program to find the number of negative numbers in an array
20 DIM arr(7)
30 arr(1) = -1
40 arr(2) = 0
50 arr(3) = -5
60 arr(4) = -3
70 arr(5) = 4
80 arr(6) = 8
90 arr(7) = 1
100 negative_count = 0
110 FOR i = 1 TO 7
120 IF arr(i) < 0 THEN
130 negative_count = negative_count + 1
140 END IF
150 NEXT i
160 PRINT "The number of negative numbers in the array is: "; negative_count
170 END

Результат выполнения программы: Количество отрицательных чисел в массиве равно 3.