С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Anastasia58
0 / 0 / 0
Регистрация: 07.06.2017
Сообщений: 1
1

Нахождение суммы элементов массива, которые попадают в диапазон от -2 до 2

07.06.2017, 20:13. Просмотров 131. Ответов 2
Метки нет (Все метки)

Visual Basic
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
27
28
29
Sub Обработка массива ()
Dim x() As Single
Dim s As Single, r As Single
Dim i As Integer, j As Integer, n As Integer
n = CInt(InputBox("Введите  число элементов массива"))
ReDim x(n)
s = 0
Cells(1, 1) = "Исходный массив"
Cells(1, 1) = "Исходный массив"
For i = 1 To n
x(i) = i * Sin(1 - i)
Cells(i + 1, 1) = x(i)
If x(i) > 0 Then s = s + x(i)
Next i
Cells(3, 3) = "Сумма положительных элементов массива"
Cells(4, 3) = s
Cells(1, 5) = "Отсортированный массив"
For j = 1 To n - 1
For i = 1 To n - j
If x(i) < x(i + 1) Then
r = x(i + 1)
x(i + 1) = x(i)
x(i) = r
End If
Next: Next
For i = 1 To n
Cells(i + 1, 5) = x(i)
Next
End Sub
Надо сделать так чтобы он находил сумму элементов массива которые попадают в диапазон от -2 до 2.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.06.2017, 20:13
Ответы с готовыми решениями:

Нахождение суммы четных элементов массива, расположенных на нечетных позициях
Записать фрагмент программы с помощью которого находится сумма четных элементов...

Нахождение суммы элементов с заданными свойствами в некоторой строке массива
есть не доработанная версия сделайте пожалуйста

Нахождение суммы (количества) элементов массива стоящих на четных (нечетных) местах
Нужна помощь в составлении программ нахождение суммы (количества) элементов...

Нахождение суммы элементов в двумерном массиве .
Требуется написать прогтамму на языке Бейсик на следующую задачу Дан двумерный...

Найти сумму элементов массива, которые попадают в диапазон от a до b
Найти сумму элементов массива, которые попадают в диапазон от a до b( a и b...

2
magirus
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
27958 / 15680 / 959
Регистрация: 15.09.2009
Сообщений: 67,825
Записей в блоге: 78
07.06.2017, 20:24 2
VB или VBA?
0
Alex77755
10780 / 3345 / 561
Регистрация: 13.02.2009
Сообщений: 9,826
07.06.2017, 21:48 3
Visual Basic
1
If x(i) > 0 Then s = s + x(i)
Вот в этой строчке чужого кода поставь свои условия! Здесь больше 0!

Добавлено через 1 минуту
Visual Basic
1
If x(i) > -2 and  x(i) < 2 Then s = s + x(i)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.06.2017, 21:48

Массивы-Указатели. Определить кол-во и суму элементов, которые попадают в диапазон А,В
Сделать программу, к-рая случайно заполняет массив А (n&lt;30) целыми значениями....

определить числа которые попадают в диапазон
с клавиатуры ввести 3 числа и определить попадают ли они в диапазон подскажите...

Определить и выдать на экран те числа, которые попадают в диапазон от 2 до 5
Ввести с клавиатуры 3 целых числа. Определить и выдать на экран те числа,...


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

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

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