Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
sav777
0 / 0 / 0
Регистрация: 08.05.2012
Сообщений: 8
1

Найти в массиве суму отрицательных чисел

11.05.2012, 12:10. Просмотров 893. Ответов 3
Метки нет (Все метки)

ребята, помогите!
1) нужно найти в массиве с N действительных чисел сумму отрицательных чисел
2) найти в массиве с N действительных чисел произведение чисел между минимальным и максимальным элементом.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.05.2012, 12:10
Ответы с готовыми решениями:

Найти в массиве суму отрицательных чисел
ребята, помогите! нужно найти в массиве с N действительных чисел сумму отрицательных чисел и...

В даном массиве найти суму 5 последний положительных чисел
В даном массиве найти суму 5 последний положительных чисел находит суму всех положительных...

Найти суму суму всех натуральных чисел кратных 13 от 13 до 169
2). Найти суму суму всех натуральных чисел кратных 13 от 13 до 169. Заранее здоровенное спасЫба :)

Найти суму чисел находящихся между первым и последним отрицательным числом в массиве - Проверить на ошибки
1)Найти суму чисел находяшихся между первым и последним отрицательным числом в массиве ...

3
SoftIce
es geht mir gut
11172 / 4649 / 1169
Регистрация: 27.07.2011
Сообщений: 11,364
Завершенные тесты: 1
11.05.2012, 13:27 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
Option Explicit
Dim D() As Single
Private Sub Command1_Click()
   Dim i As Integer, n As Integer, sum As Single
   Dim minD As Single, maxD As Single, indMin As Integer, indMax As Integer
   n = InputBox("N =", "", 10): ReDim D(1 To n)
   Randomize
   Print "Массив "
   For i = 1 To n
     D(i) = InputBox("D(" & i & ") = ", "", Int(Rnd * 20 - 10))
     If D(i) < 0 Then sum = sum + D(i)
     Print D(i);
   Next i
   minD = D(1): maxD = D(1): indMin = 1: indMax = 1
   Print
   Print "Сумма всех отрицательных элементов массива равна  " & sum
   For i = 1 To n
    If D(i) < minD Then minD = D(i): indMin = i
    If D(i) > maxD Then maxD = D(i): indMax = i
   Next i
   Print "Минимальный элемент массива - D(" & indMin & ") = "; minD
   Print "Максимальный элемент массива - D(" & indMax & ") = "; maxD
   Print "Произведение минимального и максимального элементов массива равно  " & maxD * minD
End Sub
0
Апострофф
Заблокирован
11.05.2012, 13:33 3
Цитата Сообщение от sav777 Посмотреть сообщение
произведение чисел между минимальным и максимальным элементом.
не равно
Цитата Сообщение от SoftIce Посмотреть сообщение
Произведение минимального и максимального элементов массива
1
SoftIce
es geht mir gut
11172 / 4649 / 1169
Регистрация: 27.07.2011
Сообщений: 11,364
Завершенные тесты: 1
11.05.2012, 14:01 4
Цитата Сообщение от Апострофф Посмотреть сообщение
произведение чисел между минимальным и максимальным элементом
Апострофф, спасибо, не заметил сразу.
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
Option Explicit
Dim D() As Single
Private Sub Command1_Click()
   Dim i As Integer, n As Integer, sum As Single, proizved As Single, temp
   Dim minD As Single, maxD As Single, indMin As Integer, indMax As Integer
   n = InputBox("N =", "", 10): ReDim D(1 To n)
   Randomize
   Print "Массив "
   For i = 1 To n
     D(i) = InputBox("D(" & i & ") = ", "", Int(Rnd * 20 - 10))
     If D(i) < 0 Then sum = sum + D(i)
     Print D(i);
   Next i
   minD = D(1): maxD = D(1): indMin = 1: indMax = 1: proizved = 1
   Print
   Print "Сумма отрицательных элементов массива равна  " & sum
   For i = 1 To n
    If D(i) < minD Then minD = D(i): indMin = i
    If D(i) > maxD Then maxD = D(i): indMax = i
   Next i
   Print "Минимальный элемент массива - D(" & indMin & ") = "; minD
   Print "Максимальный элемент массива - D(" & indMax & ") = "; maxD
   If indMin > indMax Then temp = indMin: indMin = indMax: indMax = temp
   If indMax - indMin < 2 Then MsgBox ("элементов находящихся м-у мин. и макс. эл. нет"): Exit Sub
   For i = indMin + 1 To indMax - 1
       proizved = proizved * D(i)
   Next i
   Print "Произведение эл. массива находящихся м-у мин. и макс. эл. массива равно  " & proizved
End Sub
0
11.05.2012, 14:01
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.05.2012, 14:01

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

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

В массиве чисел с n элементов найти сумму всех отрицательных чисел
В одномерном массиве чисел с n элементов найти сумму всех отрицательных чисел. Элементы массива...

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


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

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

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