Const n=8; var x : array[1..n] of real; i : integer; min : real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin x[i]:=20*random-10; write(x[i]:6:2,' '); end; writeln; min:=x[1]; for i:=2 to n do if x[i] < min then min:=x[i]; writeln('min=',min:6:2); for i:=1 to n do if x[i]<0 then x[i]:=min; writeln('Измененный массив:'); for i:=1 to n do write(x[i]:6:2,' '); end.
Началось все с самого простого калькулятора, который мог переводить из десятичной системы счисления в двоичную, восьмиричную и шестнадцатеричную. Потом один из пользователей запросил возможность переводить число из десятичной системы счисления в схему с любым другим основанием. Так появился калькулятор в котором можно было указывать основание системы счисления в которую надо перевести десятичное число. Вводится число FF, вводится основание системы счисления этого числа - 16. Потом, основание системы счисления, в которую надо переобразовать , это число- 10. Получается результат 255 в десятичной системе счисления.
лучшим