Program z; var s,i,j,n,m: integer; a: array [1..100,1..100] of integer; b: array [1..100] of real; begin n: =5; m: =6; for i: =1 to n do for j: =1 to m do begin writeln ('vvedi elementy'); readln (a[i,j]); end; for i: =1 to n do begin for j: =1 to m do begin write (a[i,j]: 5); end; writeln; end; for i: =1 to n do begin s: =0; for j: =1 to m do begin s: =s+a[i,j]; end; b[i]: =s/m; end; for i: =1 to n do writeln (b[i]: 5: 1); readln; end.
