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 является коммерческим продуктом, в связи с чем попробовать выполнить эту программу именно в этой среде не представляется возможным.