Форум программистов, компьютерный форум, киберфорум
Наши страницы
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
NelAs
0 / 0 / 0
Регистрация: 26.01.2015
Сообщений: 32
1

Из положительных элементов данного массива составить новый массив и определить сумму его элементов

26.01.2015, 21:45. Просмотров 1112. Ответов 7
Метки нет (Все метки)

помогите решать задачу в GW Basic !!!!!
из положительных элементов данного массива составить новый массив и определить сумму его элементов !!!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2015, 21:45
Ответы с готовыми решениями:

Найти сумму положительных элементов и сумму отрицательных элементов массива
Здравствуйте. буду очень признателен, если вы поможете мне с решением задач....

Определить сумму и количество элементов массива, расположенных на четных местах
Дано целочисленный массив Х, содержащий n = (n = 25) элементов: ...

Определить количество положительных элементов массива и их сумму
Dim a(1 To 10) As String Private Sub Command1_Click() For i = 1 To 10 a(i)...

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

Найти среднее арифметическое элементов массива, из элементов массива, меньших среднего арифметического, сформировать новый массив
Дан одномерный массив. Найти среднее арифметическое элементов массива, из...

7
SoftIce
26.01.2015, 21:49
  #2

Не по теме:

Цитата Сообщение от NelAs Посмотреть сообщение
GW Basic
Где Вы этого динозавра нашли?

0
NelAs
0 / 0 / 0
Регистрация: 26.01.2015
Сообщений: 32
26.01.2015, 21:53  [ТС] 3
???????
0
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27955 / 15676 / 959
Регистрация: 15.09.2009
Сообщений: 67,836
Записей в блоге: 78
26.01.2015, 21:58 4
"!!!!!"
и вообще, при чем тут VBA?
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4004 / 2939 / 3685
Регистрация: 05.06.2014
Сообщений: 14,519
27.01.2015, 11:23 5
QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
DIM a(1 TO 100)
DIM b(1 TO 100)
 
CLS : RANDOMIZE TIMER
 
PRINT "Dimension ";
INPUT n
 
FOR i = 1 TO n
  a(i) = INT(RND * 10 - 5)
  PRINT a(i); ' ';
NEXT i
 
k = 0
FOR i = 1 TO n
  IF a(i) > 0 THEN k = k + 1: b(k) = a(i)
NEXT i
 
PRINT
PRINT "New array"
FOR i = 1 TO k
  PRINT b(i);
NEXT i
Добавлено через 2 минуты
Добавил подсчет суммы:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
DIM a(1 TO 100)
DIM b(1 TO 100)
 
CLS : RANDOMIZE TIMER
 
PRINT "Dimension ";
INPUT n
 
FOR i = 1 TO n
  a(i) = INT(RND * 10 - 5)
  PRINT a(i); ' ';
NEXT i
 
k = 0
FOR i = 1 TO n
  IF a(i) > 0 THEN k = k + 1: b(k) = a(i)
NEXT i
sum = 0
PRINT
PRINT "New array"
FOR i = 1 TO k
  sum = sum + b(i)
  PRINT b(i);
NEXT i
PRINT
PRINT "Sum =  ", sum
0
NelAs
0 / 0 / 0
Регистрация: 26.01.2015
Сообщений: 32
27.01.2015, 11:25  [ТС] 6
спасибо большое!!!!!
а не могли бы писать программу на GW Basic?????
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4004 / 2939 / 3685
Регистрация: 05.06.2014
Сообщений: 14,519
27.01.2015, 11:47 7
Лучший ответ Сообщение было отмечено NelAs как решение

Решение

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
1 DIM a(100)
2 DIM b(100)
3 CLS : RANDOMIZE TIMER
4 PRINT "Dimension ";
5 INPUT n
6 FOR i = 1 TO n
7  a(i) = INT(RND * 10 - 5)
8  PRINT a(i); ' ';
9 NEXT i
10 k = 0
11 FOR i = 1 TO n
12  IF a(i) > 0 THEN k = k + 1: b(k) = a(i)
13 NEXT i
14 sum = 0
15 PRINT
16 PRINT "New array"
17 FOR i = 1 TO k
18   sum = sum + b(i)
19  PRINT b(i);
20 NEXT i
21 PRINT
22 PRINT "Sum =  ", sum
1
Миниатюры
Из положительных элементов данного массива составить новый массив и определить сумму его элементов  
NelAs
0 / 0 / 0
Регистрация: 26.01.2015
Сообщений: 32
27.01.2015, 13:15  [ТС] 8
спасибо большое!!!!!

 Комментарий модератора 
Я смотрю, ты по-хорошему не понимаешь.
Тема закрыта. Будешь еще нарушать Правила Форума - начнешь получать карты.

Жди ответа вот тут: Поменять столбцы K и P в матрице (GW Basic)
0
27.01.2015, 13:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2015, 13:15

Определить сумму элементов каждой строки массива 5х5 и вывести на экран ту строку, в которой сумма элементов максимальна
Всем привет!) У меня завтра экзамен в 10 утра, а в бейсике я не очень сильна...

Определить сумму положительных элементов в числовой последовательности
Создать программу, которая возвращает результат при заданном аргументе n...

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


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

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

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