Сумма элементов двумерного массива | Язык Паскаль

Сумма элементов двумерного массива

Найти сумму элементов матрицы.

Задача вычисления суммы элементов массива достаточно проста: все элементы массива перебираются и добавляются в одну и ту же переменную. Перебор элементов массива осуществляется в цикле for. Аналогично находится сумма элементов двумерного массива с той лишь разницей, что добавляется вложенный цикл for для прохода по элементам каждой строки матрицы.

Программа на языке Паскаль:

const
    M = 5;
    N = 4;
 
var
    a: array[1..M, 1..N] of byte;
    i, j: byte;
    sum: integer;
 
begin
    randomize;
 
    sum := 0;

    for i := 1 to N do begin
        for j := 1 to M do begin
            a[i,j] := random(10);
            write(a[i,j]:3);

            sum := sum + a[i,j]

        end;
        writeln
    end;
 
    writeln ('------------');
 
    writeln('sum = ', sum);
 
end.

Пример выполнения кода:

  1  0  3  8  0
  6  5  2  2  5
  5  6  4  2  3
  1  9  9  2  8
------------
sum = 81