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

Question

Информатика

Секлетея

24 мая, 19:09

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

+5

Ответы (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.