Записать вещественное число 0.00346 в двоичном формате

  0.00346 в десятеричной сс = 0.00000001 в двоичной сс

Const n=20; var a: array [1..n] of integer;   s,i: integer;   begin  randomize; for i: = 1 to n do   begin   a[i]: =random(21)-10;   write(a[i],' ')   end; writeln; s: =0; i: =1; while (i< =n)and(a[i]> 0) do    begin s: =s+a[i]; i: =i+1; end; writeln('сумма элементов массива до первого отрицательного числа = ',s); end. пример: 7 4 -5 6 -3 0 4 4 4 3 0 0 5 6 9 6 3 -9 -3 6  сумма элементов массива до первого отрицательного числа = 11

Program symm; uses crt; const n=20; var masiv: array [1..20] of integer; i: integer; summa,x: integer; begin  for i: = 1 to n do    begin    masiv[i]: =random(25)-10;     writeln(masiv[i])    end;   for i: = 1 to n do      if (masiv[i]> 0) then    begin      x: =masiv[i];       summa: =summa+x;     end      else           begin    writeln();       writeln('сумма элементов массива до первого отрицательного числа=',summa);       halt    end; end.