uses crt;
var a:array[1..10] of real;
    b:array[1..20] of real;
    c:array[1..10,1..20] of real;
    i,j:integer;
begin clrscr;
      writeln('Vvodi massiv a (10 elementov):');
      for i:=1 to 10 do
          read(a[i]);
      writeln('Vvodi massiv b (20 elementov):');
      for j:=1 to 20 do
          read(b[i]);
      for i:=1 to 10 do
          for j:=1 to 20 do
              c[i,j]:=a[i]/(1+abs(b[j]));
      writeln ('Novaya matrica:');
      for i:=1 to 10 do begin
          for j:=1 to 20 do
              write (c[i,j]:4:1);
          writeln;
      end;
end.