Даны 2 массива: A(n), из n случайных чисел и B(n), из

На Visual Basic так:

Нужно на форме сделать текстовое поле TextBox1 и кнопку Button1, на нее повесить такую программу:

Sub Button1_Click()

Dim A() As Integer, B() As Integer, C()  As Integer ' динамич. массивы

Dim n As Integer, i As Integer, Txt As String

n = InputBox ("Введите размер массивов")

ReDim A(n), B(n), C(n) ' Определяем размеры массивов

Txt = ""

For  i = 1 To n

A(i) = InputBox ("Введите " amp; i amp; "-ый элемент массива A")

B(i) = InputBox ("Введите " amp; i amp; "-ый элемент массива B")

C(i) = A(i)^2 + B(i)^2 ' Присваиваем элементу C(i) сумму квадратов

Txt = Txt amp; C(i) amp; "; " ' Прибавляем C(i) в текстовую переменную

Next i

TextBox1.Text = Txt ' Выводим весь массив C(i) в текстовое поле

End Sub