Создать массив Р по формуле и определить его максимальный элемент - VB

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

В заданном массиве Е (14) есть несколько нулевых элементов. Создать массив Р по формуле Р (и) = Е (и) - Е (и - 1), где i = 2,3, ..., 14 и определить максимальный элемент массива. В массиве Е нулевые элементы заменить значение максимального элемента массива Р. вывести массив Р, его максимальный элемент и преобразован массив Е.

Решение задачи: «Создать массив Р по формуле и определить его максимальный элемент»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
    Dim e(1 To 14), p(2 To 14)
    t1 = ""
    t2 = ""
    Max = -99
    For i = 1 To 14
        e(i) = Int(Rnd() * 30 - 20)
        If e(i) < -10 Then e(i) = 0
        t1 = t1 & e(i) & " "
        If i > 1 Then
            p(i) = e(i) - e(i - 1)
            If p(i) > Max Then Max = p(i)
            t2 = t2 & p(i) & " "
        End If
    Next
    Text1 = t1
    Text2 = t2
    Text3 = Max
    t1 = ""
    For i = 1 To 14
        If e(i) = 0 Then e(i) = Max
        t1 = t1 & e(i) & " "
    Next
    Text4 = t1
End Sub

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

8 голосов , оценка 4.25 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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