На бейсике

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

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

C1=Bm+A1

C2=Bm-1+A2

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

Cm=B1+Am

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

1

Ответы и объяснения

  • ali07
  • главный мозг
2011-05-07T11:03:16+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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