21. Дан двухмерный массив. Найти сумму элементов массива.

А на компьютерном языке можно пожалуйста)

Благодарю!

Sub Summa_ArrayDim A() As Integer, i As Integer, k As Integer, n As Integer, m As Integer, S As IntegerInput "Vvedite razmer massiva", n, mReDim A(n, m)S = 0For i = 1 To n For k = 1 To m Input "Vvedite element massiva", A(i, j) S = S + A(i, j) Next kNext iPrint SEnd Sub

Это старый Бейсик, на Visual Basic надо заменить Input на InputBox и Print на MsgBox, остальное остается также.

Алгоритм такой, здесь вложенный цикл.НачалоВвод массива A(n, m)Сумма S = 0Цикл по i от 1 до n    Цикл по k от 1 до m        S = S + A(i, j)    Конец цикла по kКонец цикла по iВывод SКонец