.(На бейсике даны массивы a(m) и b(m), m< =12 сформулировать массив с по правилу: c1=bm+a1 c2=bm-1+a2 cm=b1+am найти сумму s элементов массива с. вывести на печать массивы a, b,c и полученную сумму s..).

Dim A(12), B(12), C(12)

Input "Введите размерность массивов А и В - m= ", m 

Print "Введите элементы массивов А и В:"

For i=1 to m

  Input A(i), B(i) 

Next i

s=0

For i = 1 to m

  C(i)= A(i) + B(m-i+1)

  s= s+C(i)

Next i 

Print "Массив А:" 

For i = 1 to m

   Print A(i);

Next  i 

Print

Print "Массив B:" 

For i = 1 to m

   Print B(i);

Next  i 

Print

Print "Массив C:" 

For i = 1 to m

   Print C(i);

Next  i 

Print

Print "Сумма элементов массива С ="; s