s := 0;
for i := 1 to n do
 for j := 1 to m do
  s := s + x[i, j];
// n - количество строк, m - количество столбцов