Все парные элементы массива заменить произведением максимального и 3-го элементов массива - VB

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

Вот вторая задачка: "Создать одномерный массив M, содержащий 12 целых чисел. Все парные элементы этого массива заменить произведением максимального и 3-го элементов массива. На форму вывести создан массив в виде колонки чисел, в объект Picture вывести преобразованный массив в объект TextBox вывести максимальный элемент."

Решение задачи: «Все парные элементы массива заменить произведением максимального и 3-го элементов массива»

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

                            Private Sub Command1_Click()
Dim mas&(11)
Max = -5
Picture1.Cls
Picture1.Print "Г€Г±ГµГ®Г¤Г*Г»Г© Г¬Г*Г±Г±ГЁГў"
For i = 0 To 11
    mas(i) = Int(Rnd() * 16) - 5
    If mas(i) > Max Then Max = mas(i)
    Picture1.Print (mas(i))
Next
Text1 = Max
t1 = Max * mas(2)
 
For i = 0 To 10
    t2 = mas(i)
    For j = i + 1 To 11
        If mas(j) = t2 And Not mas(j) = t1 Then
            For k = i To 11
                If mas(k) = t2 Then mas(k) = t1
            Next
        End If
    Next
Next
 
Picture1.Print "Г€Г§Г¬ГҐГ*ГҐГ*Г*Г»Г© Г¬Г*Г±Г±ГЁГў"
For i = 0 To 11
    Picture1.Print (mas(i))
Next
End Sub
                        

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

6 голосов , оценка 3.5 из 5

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