const
  n = 10;
  m = 15;

var
  i, j :integer;
  sum, sr :real;
  
  a :array [1..n,1..m] of real;

begin

  randomize;
  for i:= 1 to n do
    for j:= 1 to m do
      a[i,j]:= random(100);
  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
    for j:= 1 to m do
      sum:= sum + a[i,j];
    sr:= sum/15;
    for j:= 1 to m do
      a[i,j]:= a[i,j] / sr;
    sum:= 0;
  end;
  
  writeln;
  
  for i:= 1 to n do
  begin
    for j:= 1 to m do
      write(a[i,j],' ');
    writeln;
  end;

end.