Question

В одномерном массиве из N чисел вывести на экран количество положительных и отрицательных элементов.

1Ø CLS
2Ø REM Определяет количество положительных и отрицательных элементов массива
3Ø INPUT “Введите количество элементов в массиве N=”; N
4Ø DIM A(N)
5Ø REM Ввод элементов массива
6Ø FOR I=1 TO N
7Ø PRINT “Номер”; I;
8Ø INPUT “Значение элемента массива =”; A(I)
9Ø NEXT I
11Ø REM Нахождение количества положительных и отрицательных элементов массива
12Ø k=Ø : S=Ø
13Ø FOR I=1 TO N
14Ø IF A(I)>0 THEN K=K+1
15Ø IF A(I)<0 THEN S=S+1
16Ø NEXT I
17Ø REM Вывод результатов
18Ø PRINT “Количество положительных элементов =”; K
19Ø PRINT “Количество отрицательных элементов =”; S
2ØØ END

Почему не работает в Librty BASIC ?
Как правильно написать? и можно блок схему

Answer 1

10 CLS
20 REM Определяет количество положительных и отрицательных элементов массива
30 INPUT "Введите количество элементов в массиве N="; N
40 DIM A(N)
50 REM Ввод элементов массива
60 FOR I = 1 TO N
70 PRINT "Номер"; I;
80 INPUT "Значение элемента массива ="; A(I)
90 NEXT I
110 REM Нахождение количества положительных и отрицательных элементов массива
120 K = 0: S = 0
130 FOR I = 1 TO N
140 IF A(I) > 0 THEN K = K + 1
150 IF A(I) < 0 THEN S = S + 1
160 NEXT I
170 REM Вывод результатов
180 PRINT "Количество положительных элементов ="; K
190 PRINT "Количество отрицательных элементов ="; S
200 END

В таком виде программа была выполнена в среде LB Booster - бесплатной версии со входным языком Liberty BASIC. Сама же Liberty BASIC является коммерческим продуктом, в связи с чем попробовать выполнить эту программу именно в этой среде не представляется возможным.