Из массива целых случайных чисел Х(хi), где i=(1,2....n) получить массив Y=(y(m)) - VB

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

из массива целых случайных чисел Х(хi), где i=(1,2....n),получить массив Y=(y(m)), из среднеарифмитических соседних двух элементов. Х=(3,1,8,4,7,3,7)=> Y=(2,6,5)

Решение задачи: «Из массива целых случайных чисел Х(хi), где i=(1,2....n) получить массив Y=(y(m))»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim A(), A2() As Single, n As Integer, m As Integer, k As Integer
Dim i As Integer, j, p, p2 As Integer
Private Sub Command1_Click()
Randomize 'Иницилизация генератора случайных чисел
Me.Cls       'Очищаем форму
m = InputBox("Введите число", , 10)
ReDim A(1 To m) ' Размеры матрицы А
ReDim A2(1 To m)
    For i = 1 To m
        A(i) = Int(Rnd * 21 - 10)
        Print A(i)
    Next i
Print
        For i = 1 To m Step 2
            A2(i) = 0.5 * (A(i) + A(i + 1))
            Print A2(i)
        Next i
End Sub

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

12 голосов , оценка 4 из 5

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

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

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