Обработка чисел и числовых последовательностей. - VB
Формулировка задачи:
2. Обработка числовой последовательности с заданным количеством элементов.
В числовую переменную последовательно вводится N произвольных чисел. Определить порядковые номера и значения первого из минимальных и последнего из максимальных чисел, а также сумму чисел, введенных за найденным последним максимальным.
3. Обработка числовой последовательности с неопределенным количеством элементов.
Во вводимой последовательности натуральных чисел с неопределенным
количеством элементов найти все числа N, не превосходящие заданного числа
k (1 < k < 100), такие, что у числа n + 75 сумма цифр – простое число. Если таких
чисел нет, - сообщить об этом.
помогите решить(
Решение задачи: «Обработка чисел и числовых последовательностей.»
textual
Листинг программы
Private Sub Command1_Click() Dim N As Integer, A() As Single Dim max As Single, maxI As Integer Dim min As Single, minI As Integer Dim sum As Single N = InputBox("N") ReDim A(1 To N) For i = 1 To N A(i) = InputBox("A(" & i & ")") txt = txt & A(i) & " " Next i max = A(1): maxI = 1: min = A(1) For i = 2 To N If A(i) >= max Then max = A(i): maxI = i If A(i) < min Then min = A(i) Next i For i = 1 To N If A(i) = min Then minI = i: Exit For Next i For i = maxI + 1 To N sum = sum + A(i) Next i MsgBox txt & Chr(13) & "Max=" & max & " Number : " & maxI & Chr(13) & "Min=" & min & " Number: " & minI & Chr(13) & "Sum=" & sum End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д