{* Задача23 *}

REM basic

' Даны два одномерных массива. Создайте третий массив, каждый элемент которого равен сумме элементов исходных массивов


Dim  a(n)
Dim  b(n)
Dim  c(n)
For i=1 To n
PRINT "Введите а("; i; ")"
INPUT а(i)
Next i
For i=1 To n
PRINT a(i);
Next i
PRINT
For i=1 To n
PRINT "Введите b("; i; ")"
INPUT b(i)
Next i
For i=1 To n
PRINT b(i);
Next i
PRINT
For i=1 To n
c(i)=a(i)+b(i)
Next i
For i=1 To n
PRINT c(i);
Next i
End