Question

На бейсике

Даны массивы A(m) и B(m), m<=12

Сформулировать массив С по правилу:

C1=Bm+A1

C2=Bm-1+A2

------------

Cm=B1+Am

Найти сумму S элементов массива С. Вывести  на печать массивы A,B,C и полученную сумму S.. 

Answer 1

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