Program z12; const n = 8; const m = 6; Var a: array [1..n,1..m] of integer; b: array [1..n] of integer; i,j,sr:integer;Begin for i:=1 to n do for j:=1 to m do a[i,j]:= random(10); for i:=1 to n do begin for j:=1 to m do write(a[i,j],' '); writeln; end; for i:=1 to n do begin sr:=0; for j:=1 to m do sr:= sr + a[i,j]; b[i]:= sr; end; for i:=1 to n do write(b[i], ' '); End.