VBА Microsoft Excel.
Массив а заполняется с использованием случайных чисел. Результаты выводятся на первый лист рабочей книги.
Option Base 1
Sub aaa()
Dim a(50), b(50)
Randomize Timer
Cells(1, 1) = "a(i)"
Cells(1, 2) = "b(i)"
For i = 1 To 50
a(i) = Int(201 * Rnd - 100)
b(i) = 2 * a(i)
Cells(i + 1, 1) = a(i)
Cells(i + 1, 2) = b(i)
Next i
End Sub