Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
eugeneps3
0 / 0 / 0
Регистрация: 12.05.2012
Сообщений: 7
#1

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

12.05.2012, 23:16. Просмотров 603. Ответов 2
Метки нет (Все метки)

Ввести в массив N чисел. Определить количество положительных его элементов. Нужно составить алгоритм (блок-схему) и написать программу.

При этом допустимо использовать операторы: DIM(одномерный),LET, READ-DATA, WHILE, FOR-TO-STEP-NEXT, GO TO, IF-THEN-ELSE, INPUT-PRINT. Заранее спасибо.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.05.2012, 23:16
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ввести в массив N чисел. Определить количество положительных элементов (QBasic):

Определить среди чисел количество положительных чисел и найти сумму отрицательных
Ввести 10 произвольных действительных чисел. Определить среди них количество...

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

Определить количество положительных и отрицательных чисел в последовательности
Вводится последовательность ненулевых чисел, завершаемая нулем. Определить...

Определить количество положительных элементов массива
Определить количество положительных элементов массива. Элементы массива...

Из положительных элементов данного массива составить новый массив и определить сумму его элементов
помогите решать задачу в GW Basic !!!!! из положительных элементов данного...

Определить сумму и количество положительных элементов массива
1.Определить сумму и количество положительных элементов исходного массива X(n)....

2
softmob
1249 / 699 / 359
Регистрация: 20.02.2010
Сообщений: 1,035
12.05.2012, 23:32 #2
Лучший ответ Сообщение было отмечено eugeneps3 как решение

Решение

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
INPUT "enter n: ", n
DIM a(n)
FOR i = 1 TO n STEP 1
    INPUT "enter val: ", a(i)
NEXT
FOR i = 1 TO n STEP 1
    PRINT a(i);
NEXT
FOR i = 1 TO n STEP 1
    LET s = s - (a(i) > 0)
NEXT
PRINT: PRINT "positive: "; s
2
eugeneps3
0 / 0 / 0
Регистрация: 12.05.2012
Сообщений: 7
16.05.2012, 19:36  [ТС] #3
Спасибо огромное!! Еще бы с блок-схемой помочь
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2012, 19:36
Привет! Вот еще темы с решениями:

Определить сумму и количество положительных элементов массива
Нужно написать программу по бейсику.Дано матрица х(n,n) целых чисел.вычислить...

Ввести в память машины массив А(N), подчитать количество отрицательных элементов массива
1)Ввести в память машины массив А(N), подчитать количество отрицательных...

Определить сумму отрицательных и количество положительных элементов массива X(n)
4.1 Определить сумму отрицательных и количество положительных элементов...

Определить количество положительных и отрицательных элементов в каждом столбце матрицы
помогите пожалуйста.определить количество положительных и отрицательных...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru