Дан целочисленный двумерный массив, равномерности m x n, найти сумму всех элементов массива

Var

mas : array [1 ... 100,1 ... 100] of integer;

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

begin

write ('Введите количество строк n=') ; readln (n) ;

write ('Введите количество столбцов m=') ; readln (m) ;

for i:=1 to n do

for j:=1 to m do

mas[i, j]:=random (99) ;

writeln ('Исходная матрица') ;

for i:=1 to n do

begin

for j:=1 to m do

write (mas[i, j]:2,' ') ;

writeln;

end;

summa:=0;

for i:=1 to n do

for j:=1 to m do

summa:=summa+mas[i, j];

write ('Сумма=', summa) ;

end.