В первый час лыжник проходит 8 км. Каждый следующий час его скорость снижается на 10%. Через сколько часов он преодолеет более 33 км? - VB

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

Разработайте проект для решения следующей задачи: «В первый час лыжник проходит 8 км. Каждый следующий час его скорость снижается на 10%. Через сколько часов он преодолеет более 33 км?»

Найдите сумму элементов одномерного массива, заключенных между наибольшим и наименьшим элементами массива. Предполагается, что массив содержит только один минимальный и только один максимальный элементы.

Дан одномерный массив целых чисел. Образовать новый массив, выбросив из исходного элементы, равные минимальному элементу массива.

Дан целочисленный массив температур за месяц. Определите день, когда температура была наиболее близкой к средней температуре месяца.

Дан двумерный массив целых чисел. Найти строку с наибольшей и наименьшей суммой элементов. Вывести на экран найден¬ные строки и суммы их элементов.

Дана квадратная матрица n-го порядка целых чисел. Определить, является ли она магическим квадратом, т.е. такой, в которой суммы элементов во всех строках и столбцах одинаковы.

Решение задачи: «В первый час лыжник проходит 8 км. Каждый следующий час его скорость снижается на 10%. Через сколько часов он преодолеет более 33 км?»

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

                            Dim A() As Single
Dim minDifferent As Single
Dim average As Single, temp As Integer
Dim n As Single
n = Int(Val(InputBox("n")))
ReDim A(1 To n)
Randomize
For i = 1 To n
    A(i) = Int(30 * Rnd)
    average = average + A(i)
Next i
average = average / n
minDifferent = 0
 
For i = 1 To n
    minDifferent = Abs(A(i) - average)
    If minDifferent <> 0 Then temp = A(i): Exit For
Next
 
If minDifferent = 0 Then MsgBox "ВСЕ ОДИНАКОВЫЕ": Exit Sub
 
For i = 1 To n
    If Abs(A(i) - average) < minDifferent Then minDifferent = Abs(A(i) - average): temp = A(i)
Next i
MsgBox "Средняя = " & average & Chr(13) & "Минимально близкая температура = " & temp & " с разницей " & minDifferent
                        