Найти сумму элементов в двумерном массиве

Question

Информатика

Нинуха

13 января, 16:02

Найти сумму элементов в двумерном массиве

+3

Ответы (1)

Знаете ответ на вопрос?

Петря · Answer 1

Var

i, j, n, m, sum:integer;

a:array[1 ... 1000, 1 ... 1000] of integer;

begin

Readln (n, m) ;

for i: = 1 to n do

for j: = 1 to m do

Read (a[i, j]) ;

for i: = 1 to n do

for j: = 1 to m do

sum: = sum+a[i, j];

Writeln (sum) ;

end.