В одномерном массиве из 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<br> 16Ø NEXT I 17Ø REM Вывод результатов 18Ø PRINT “Количество положительных элементов =”; K 19Ø PRINT “Количество отрицательных элементов =”; S 2ØØ END Почему не работает в Librty BASIC ? Как правильно написать? и можно блок схему
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 является коммерческим продуктом, в связи с чем попробовать выполнить эту программу именно в этой среде не представляется возможным.
а что в итоге, какой ответ? можно скрин?
Ответ зависит от того, что Вы введете...
А скрин нельзя - я поставил эту систему, проверил, и удалил ее. Но скрин можно взять с QBASIC, к примеру, там программа тоже выполняется беспроблемно.
Препод будет проверять по той программе что дал, придется вводить все при нем и смотреть как работает. Я нажимаю RUN и он выводит - Введите количество элементов в массиве N=
Ну и вводите, к примеру, 5
а куда именно?
Что значит "куда"? Нажмите 5 и Enter
Догнал, спасибо большое
слушай, а почему идет сначала 90 , а потом сразу же 110 - это не ошибка?
Как Вы дали программу, так оно и осталось. Большинство бейсиков вообще не требует этой нумерации, а прочим нужно лишь, чтобы номера шли по возрастанию, а на сколько они меняются - без разницы.