Представити двійкове число в нормалізованому виді і записати в розрядній сітці : 0.000111.​

Const   n = 5; { это позволяет в одном месте изменить количество чисел } type   numeric = real; { это позволяет в одном месте изменить тип чисел } var   max, min: numeric;   i: integer;   a: array[1..n] of numeric; begin   writeln('введите ', n, ' произвольных чисел через пробел');   read(a[1]);   min : = a[1]; max : = min;   for i : = 2 to n do   begin       read(a[i]);       if max < a[i] then max : = a[i]       else       if min > a[i] then min : = a[i]   end;   writeln('минимальное введенное: ', min, ', максимальное: ', max) end. тестовое решение: введите 5 произвольных чисел через пробел 34 157 -84.54 14.843 -13.64 минимальное введенное: -84.54, максимальное: 157

Var y: array [1..11] of integer; var i, sum, n: integer; begin randomize; for i: =1 to 11 do  begin  y[i]: =-10+random (21);   write (y[i], ' ');   end; sum: =0; for i: =1 to 11 do  begin  if (i mod 2< > 0) and (y[i]< 0) then sum: =y[i]+sum; //№1  if i mod 2< > 0 then y[i]: =y[i]*y[i]; //№2  if (i mod 2=0) and (y[i]=1) then inc (n); //№3 end; writeln; writeln ('сумма =', sum); writeln ('количество 1 на четных местах =', n); end.