Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 26.09.2016
Сообщений: 40
1

Создать одномерный массив из 20 целочисленных значений.Найти минимальную сумму каждой пары,т.е C1 и C2,C3 и C4

08.02.2017, 17:56. Показов 1546. Ответов 1
Метки нет (Все метки)

Создать одномерный массив из 20 целочисленных значений.Найти минимальную сумму каждой пары,т.е C1 и C2,C3 и C4
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.02.2017, 17:56
Ответы с готовыми решениями:

Найти сумму элементов в каждой строке матрицы с четным индексом и создать из них одномерный массив
Заданная матрица А(К,L). Найти сумму элементов в каждой строке с четным индексом и создать из них...

Создать одномерный массив из средних арифметических значений каждой строки матрицы
Всем привет, недавно начал изучать программирование и не могу понять как решить данную...

Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку [-14;14]. Найти сумму элементов массива, кратных пяти.
Помогите пожалуйста написать прогу в паскале: задать случайным образом одномерный массив из 18...

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

1
5543 / 1348 / 148
Регистрация: 08.02.2009
Сообщений: 4,083
Записей в блоге: 30
08.02.2017, 21:53 2
Цитата Сообщение от Daes Посмотреть сообщение
C1 и C2, C3 и C4
Так соседних пар получается 10, но вообще-то их 19: I+II, II+III, III+…

А число каждых пар (то есть всех) — это число сочетаний по 2 из 20 = 190.

Но будем надеяться, что
Цитата Сообщение от roma9595 Посмотреть сообщение
не надо там премудростей никаких
Вот Казанский предложил такую формулу в Excel: Поиск двух одинаковых минимальных значений в массиве — но быстро её переверстать я не берусь.

Код сделал по типу кода из темы темы fhntv123456 (милейший чел — дал методичку!)

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
30
31
Option Base 1
 
Sub LittleCouples()
    Dim b As Variant, j As Byte 'переменные для массива и его индексов
    Dim sumpair As Single, minLEVEL As Single 'сумма пар и переменная для их сравнения
    Dim Nmin As Long      'количество минимальных сумм соседних (непересекающихся) пар
    Dim answer As String  'строка для ответа
 
b = Array(3, 4, -3, 3, 3, 3, 3, 3, 3) 'здесь набить 20 чисел через запятую
minLEVEL = b(1) + b(2) 'Сумма 1-й пары — начальная база сравнения.
 
    For j = 1 To UBound(b) Step 2 'берём каждый второй элемент
        If j < UBound(b) Then
        sumpair = b(j) + b(j + 1)
            If sumpair = minLEVEL Then
                Nmin = Nmin + 1 'ещё один минимум суммы
                answer = answer & "; " & j & " и " & j + 1
            End If
            If sumpair < minLEVEL Then
                Nmin = 1 'новый минимум
                answer = vbNullString 'сбросили устаревший список
                minLEVEL = sumpair 'сумма очередной пары, оказавшаяся меньше
                answer = answer & "; " & j & " и " & j + 1
            End If
        End If
    Next
    
MsgBox "Массив: " & Join(b, "; ") & vbCr & vbCr & "Номера элементов пар" & _
    IIf(Nmin = 1, "ы", "") & " с минимальной суммой: " & Mid(answer, 3) & _
    " (всего пар с суммой " & minLEVEL & ": " & Nmin & ")", vbOKCancel
End Sub
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.02.2017, 21:53

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

Создать одномерный массив C[N] целочисленных чисел, используя типизированные константы
Создать одномерный массив C целочисленных чисел, используя типизированные константы. Сформировать...

Даны несколько пар значений, нужно посчитать сумму каждой пары
подскажите как допилить простецкую задачу(даны несколько пар значений, и нужно посчитать сумму...

Найти количество положительных элементов в каждом столбце и создать с значений одномерный массив
Задана матрица А(N,M). Найти кол-во положительных элементов в каждом столбце и создать с этих...

Подпрограммы. Дан одномерный массив. Найти сумму тех значений В, которым соответствует А = -Amaх
ПОДРОГРАММЫ. Задан одномерный массив М, состоящий из п элементов, каждый из которых представляет...

Дан одномерный массив А(15). Найти сумму и произведение значений элементов массива, больших некоторой величины
Дан одномерный массив А(15). Найти сумму и произведение значений элементов массива, больших...

В массиве найти сумму каждой соседней пары элементов
#include &lt;iostream&gt; #include &lt;conio.h&gt; #include &lt;math.h&gt; #include &lt;time.h&gt; #include &lt;string&gt;...


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

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

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