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

Question

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

Answer 1

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

Comments

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

---

Sub Summa_Array
Dim A() As Integer, i As Integer, k As Integer, n As Integer, m As Integer, S As Integer
Input "Vvedite razmer massiva", n, m
ReDim A(n, m)
S = 0
For i = 1 To n
For k = 1 To m
Input "Vvedite element massiva", A(i, j)
S = S + A(i, j)
Next k
Next i
Print S
End Sub

---

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

Answer 2

 const     
n = 5;     
m = 5; 
var   
a : array [1..m,1..m] of integer;   
s,i,j : integer; 
begin 
 //Формирование массива пропущено 

s := 0; 
 for i := 1 to n do   
for j := 1 to m do   
 s := s + a[i,j];     

   writeln (s);
 end.

Comments

Благодарю!