На бейсике Даны массивы A(m) и B(m), m меньше =12 Сформулировать массив С по правилу: C1=Bm+A1 C2=Bm-1+A2 ------------ Cm=B1+Am Найти сумму S элементов массива С. Вывести на печать массивы A,B,C и полученную сумму S..

Question

На бейсике Даны массивы A(m) и B(m), m меньше =12 Сформулировать массив С по правилу: C1=Bm+A1 C2=Bm-1+A2 ------------ Cm=B1+Am Найти сумму S элементов массива С. Вывести на печать массивы A,B,C и полученную сумму S..

На бейсике Даны массивы A(m) и B(m), m<=12 Сформулировать массив С по правилу: C1=Bm+A1 C2=Bm-1+A2 ------------ Cm=B1+Am Найти сумму S элементов массива С. Вывести на печать массивы A,B,C и полученную сумму S..

Гость

Ответ(ы) на вопрос:

Accepted Answer

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