Вопрос по информатике:
В одномерном массиве из 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 ?
Как правильно написать? и можно блок схему
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 13.02.2015 00:26
- Информатика
- remove_red_eye 18993
- thumb_up 26
Ответы и объяснения 1
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 является коммерческим продуктом, в связи с чем попробовать выполнить эту программу именно в этой среде не представляется возможным.
- 13.02.2015 17:03
- thumb_up 13
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.