На бейсике Даны массивы A(m) и B(m), m<=12 Сформулировать массив С по правилу: C1=Bm+A1 C2=Bm-1+A2
10-11 класс
|
------------
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 "Массив B:"
For i = 1 to m
Print B(i);
Next i
Print "Массив C:"
For i = 1 to m
Print C(i);
Next i
Print "Сумма элементов массива С ="; s
Другие вопросы из категории
произвольных массивах, состоящих из 1 числа, из 5 чисел, из 10 чисел.
Дан массив из 12 элементов. Найти количество элементов массива по абсолютной величине больших 15.
Читайте также
-нечетные элементы матрицы. Выведите на экран все массивы.
ИЛИ
Сформируйте два одномерных массива. В один перешлите четные, а в другой
-нечетные элементы матрицы. Выведите на экран все массивы.
все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.
диагонали. нахождение в каждой строке массива наименьшего элемента и его перестановку с элементом стоящим на главной диагонали оформить в виде подпрограммы
1) Из элементов данного массива W[1..20] создать 2 новых массива, первый из которых содержит только положительные элементы, а второй только отрицательные.
2) Заполнить СЛУЧАЙНЫМИ числами в диапазоне от 1 до 10 два массива A[20] и B[20]. Найти и вывести на экран только те элементы этих массивов и их номера, значения которых попарно совпадают.
Например, если A[2]=B[2]=4, то на экран надо вывести: Номер-2, значение-4.
3) Заменить найденный минимальный элемент числом 100 и показать на экране массив с этой заменой.