Option Base 1
Option Explicit
Public Sub Vvod1()
Dim A(5, 4) As Integer
Dim j As Integer
Dim i As Integer
Dim str As String
Dim sum As Integer
Dim x As Variant
Dim n, m As Integer
'Ввод элементов массива
x = Array(5, 15, 3, 7, 4, 20, 5, 1, 7, 10, 5, 3, 6, 8, 6, 2, 2, 6, 8, 0)
n = 1
m = 1
str = ""
sum = 0
For i = 1 To 5
For j = 1 To 4
A(i, j) = x(n)
str = str & A(i, j) & " "
  n = n + 1
Next j
str = str + Chr(13)
Next i
'Вывод элементов массива
MsgBox "Исходный массив:" & Chr(13) & str, , "Вывод массива"
For i = 1 To 5
For j = 1 To 2
sum = sum + A(i, j)
Next j
Next i
MsgBox "сумма:" & Chr(13) & sum
End Sub

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

02.06.2014, 17:48

Ответы с готовыми решениями:

Составить программу и блок-схему для вычисления суммы бесконечного ряда
В документах приложено задание, и пример.

Составить блок-схему для программы вычисления значений функции
Помогите нарисовать блоксхему плиз(Срочно) вот код: Program name; Const h=0.5; Var x,y,e:real;...

Составить блок-схему алгоритма и программу для вычисления суммы бесконечного сходящегося ряда
Добрый день! Помогите, пожалуйста, решить задачу. Составить блок-схему алгоритма и программу...

Составить блок-схему алгоритма и программу для вычисления суммы бесконечного сходящегося ряда
Добрый день! Помогите, пожалуйста, решить задачу! Составить блок-схему алгоритма и программу для...

	02.06.2014, 17:48

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

02.06.2014, 17:48

Помогаю со студенческими работами здесь

Разработать блок-схему и текст программы для вычисления суммы и произведения целых чисел
1)Разработать блок-схему и текст программы для вычисления суммы и произведения всех целых чисел в...

Составить блок схему (Поиск суммы и произведения значений элементов матрицы, кратных 5)
Вот задание "Написать программу . Дана целочисленная квадратная матрица А порядка N, где N -...

Разработать блок-схему и текст программы для вычисления суммы всех четных чисел, кратных 7
2)Разработать блок-схему и текст программы для вычисления суммы всех четных чисел, кратных 7, в...

Pascal. Циклы. Составить блок-схему алгоритма и программу для вычисления суммы членов бесконечного ряда
Составить блок-схему алгоритма и программу для вычисления суммы членов бесконечного ряда с...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Наверх