const n = 3; m = 6; var i, j, sum :integer; a :array [1..n,1..m] of integer; begin randomize; for i:= 1 to n do for j:= 1 to m do a[i,j]:= random(121)-60; sum:= 0; for i:= 1 to n do for j:= 1 to m do sum:= sum + a[i,j]; for i:= 1 to n do begin for j:= 1 to m do write(a[i,j]:4); writeln; end; writeln('Сумма элементов массива равна ',sum); end.