Обработка чисел и числовых последовательностей. - 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