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

Найти сумму элементов массива, расположенных после максимального элемента

18.02.2013, 23:10. Просмотров 712. Ответов 2
Метки нет (Все метки)

Ввести одномерный массив x = {-1.5, 0, 0.8, 2.2, 3, 0.5, 0.1}.
Переписать элементы массива, принадлежащие отрезку [-1;1], в массив y и найти сумму элементов, расположенных после максимального элемента в массиве y.

Это Visual Basic
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2013, 23:10
Ответы с готовыми решениями:

Найти сумму элементов массива, расположенных после максимального элемента
Помогите пожалуйста с програм. кодом. В прошлой теме код был немного не тот, т.к. он для Visual...

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

Определить сумму элементов массива,расположенных после минимального по модулю значения
Определить сумму элементов массива,расположенных после минимального по модулю значения

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

найти число, которое меньше максимального элемента массива, но больше всех других его элементов
В массиве A найти второе по значению число (т.е. вывести на печать число, которое меньше...

2
gaw
6636 / 1503 / 169
Регистрация: 09.01.2010
Сообщений: 4,287
19.02.2013, 00:23 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
Private Sub Command1_Click()
Dim i%, k%, m
Dim a(), y#(), max#, S#
Dim R$
 c = String(100, "-")
a = Array(-1.5, 0, 0.8, 2.2, 3, 0.5, 0.1)
R = R & "A --->    "
For i = LBound(a) To UBound(a): R = R & vbTab & a(i)
   If Abs(a(i)) <= 1 Then
      k = k + 1: ReDim Preserve y(k)
      y(k) = a(i)
        If k = 1 Then
           max = a(i): m = 1
        Else: If max <= a(i) Then max = a(i): m = i
       End If
   End If
Next i
R = R & vbLf & c & vbLf & "Y --->   "
S = 0
For i = 1 To k: R = R & vbTab & y(i)
    If i > m Then S = S + y(i)
Next i
R = R & vbLf & c & vbLf & "Max=Y(" & m & ")=" & max
MsgBox R & vbLf & c & vbLf & "SY(" & m + 1 & "-" & k & ")=" & S
End Sub
0
Maria18207
0 / 0 / 0
Регистрация: 18.02.2013
Сообщений: 7
27.02.2013, 18:22  [ТС] 3
А можете сказать как будет выглядеть код в Visual Basic 2008. А то код не подходит

 Комментарий модератора 
vb.net в разделе http://www.cyberforum.ru/vb-net/ Не нарушаем структуру!
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2013, 18:22

Найти произведение элементов массива В(12), стоящих после минимального элемента
Найти произведение элементов массива В(12), стоящих после минимального элемента. Помогите

Найти разность максимального и последнего элемента массива
Дан массив. Найти разность максимального и последнего элемента массива

Как найти номер максимального элемента массива
В одномерном массиве, который состоит из эн действительных элементов, вычислить: 1) номер...


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

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

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