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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.8 из 5
Похожие ответы