Определить сумму элементов двумерного массива (составить программу)

const

m = 4;

n = 4;

var

a: array [ 1 ... m, 1 ... n ] of byte;

s: array [ 1 ... n ] of byte;

i, j, sum: byte;

begin

randomize;

for i : = 1 to m do

begin

for j : = 1 to n do

begin

a [ i, j ] : = random (10);

write (a [ i, j ] : 3)

end;

writeln

end;

for j : = 1 to n do

begin

for i : = 1 to m do

begin

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

sum : = sum + a [ i, j ]

end;

write (s [ j ] : 3)

end;

writeln;

write ('Сумма элементов данного двухмерного массива равна ', sum, '.');

readln

end.