Найти минимальные элементы последовательности - VB

Формулировка задачи:

задача 1 ДАНА последовательность из n целых чисел.найти номер минимального элемента этой последовательность задача 2 ДАНА последовательность из целых чисел,за которой следует 0.найти среднее арифметическое этой последовательности заранее благодарна за помощь

Решение задачи: «Найти минимальные элементы последовательности»

textual
                            Листинг программы 
                        

                            Private Sub Form_Activate()
Dim i As Byte, n As Byte, sum As Double
n = InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГЄГ®Г«-ГўГ® Г·Г«ГҐГ*Г®Гў ГЇГ®Г±Г«ГҐГ¤Г®ГўГ*ГІГҐГ«ГјГ*Г®Г±ГІГЁ: ")
sum = 0
For i = 1 To n
sum = sum + (1 / (2 * i + 1) ^ 2)
Next
Print sum
End Sub
                        

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

11 голосов , оценка 4.091 из 5

Похожие ответы