Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 09.01.2012
Сообщений: 3
1

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

09.01.2012, 23:40. Просмотров 1001. Ответов 3
Метки нет (Все метки)

Задание:
Вычислить сумму и количество положительных и отрицательных элементов массива D(n), установить каких (положительных или отрицательных) элементов больше.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.01.2012, 23:40
Ответы с готовыми решениями:

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

Вычислить сумму и количество положительных, сумму и количество отрицательных элементов массива
Помогите пожалуйста сдалать следующие 2 задачи : 1)вычислить сумму и количество положительных,...

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

Массивы: вычислить сумму положительных и количество отрицательных элементов массива
Здравствуйте. Столкнулся с проблемой, нужно вычислить сумму положительных и количество...

3
98 / 43 / 13
Регистрация: 02.05.2011
Сообщений: 408
10.01.2012, 08:50 2
PureBasic
1
2
3
4
5
6
7
8
9
10
11
//задали массив
p=0
o=0
s=0
FOR i=1 TO n
s=s+d(i)
IF d(i)=0 THEN o=o+0
IF d(i)>0 THEN p=p+1 ELSE o=o+1
NEXT i
PRINT(s)
IF p>o THEN PRINT(p) ESLE PRINT(o)
0
5660 / 870 / 290
Регистрация: 25.02.2011
Сообщений: 1,232
Записей в блоге: 1
10.01.2012, 13:50 3
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
DIM a(20)
RANDOMIZE TIMER
n = 20
FOR i = 1 TO n
a(i) = INT(RND * 21 - 10)
NEXT i
 
so = 0: sp = 0
ko = 0: kp = 0
 
FOR i = 1 TO n
SELECT CASE SGN(a(i))
CASE -1: ko = ko + 1: so = so + a(i)
CASE 1: kp = kp + 1: sp = sp + a(i)
END SELECT
NEXT i
CLS
PRINT "kol-vo pol:"; kp, "summa pol:"; sp
PRINT "kol-vo otr:"; ko, "summa otr:"; so
Добавлено через 3 часа 24 минуты
Цитата Сообщение от Коровьев Посмотреть сообщение
PureBasic
1
2
IF d(i)=0 THEN o=o+0
IF d(i)>0 THEN p=p+1 ELSE o=o+1
У Вас здесь ошибка, программа будет считать и положительные и неположительные (отрицательные и равные нулю)
o=o+0 вообще нет смысла делать

лучше так:
PureBasic
1
2
IF d(i)<0 THEN o=o+1
IF d(i)>0 THEN p=p+1
или так
PureBasic
1
IF d(i)<0 THEN o=o+1 ELSE IF d(i)>0 THEN p=p+1
2
Коровьев
10.01.2012, 16:04     Вычислить сумму и количество положительных и отрицательных элементов массива
  #4

Не по теме:

надо прекращать кодить с утра:)

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.01.2012, 16:04
Привет! Вот еще темы с ответами:

Вычислить сумму и количество отрицательных, положительных и нулевых элементов массива
Нужно передать одномерный массив через функцию Условие задачи: Вычислить сумму и количество...

Вычислить сумму отрицательных, произведение положительных и количество нулевых элементов массива с нечетными индексами.
Народ выручайте :D у меня заходы уже. задачка с одномерным массивом. Вычислить сумму...

Дан массив Х(100). Вычислить сумму и количество положительных и отрицательных элементов массива, если -1xi1
Дан массив Х(100). Вычислить сумму и количество положительных и отрицательных элементов массива,...

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


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

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

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