Переход двоичного числа 11010010 в десятичных систему счисления

при переводе десятичных дробей, чтобы перевести из десятичной системы счисления нужно:

1) последовательно умножать данную дробь на основание системы счисления, в которую переводим, до тех пор, пока дробная часть не будет равна нулю, или не будет достигнута требуемая точность вычислений. при этом необходимо выделять целые части получаемых произведений; 2) полученные целые части произведений, являются цифрами числа в новой системе счисления (при необходимости их надо в соответствие с алфавитом этой системы счисления); 3) составить дробную часть в новой системе счисления начиная с целой  части первого произведения.

0,625 в десятич. :

0,625*2=1,25

0,25*2=0,5

0,5*2=1

итого: 0,101

 

для того чтобы перевести в десятичную нужно применять обычные правила за исключением того, что числа после запятой возводяться в отрицательную степень:

0.101 в двоичной = 0, 1*2^-1 + 1*2^-3=0, 625

 

3,875 (10)=11.111 (2)

Вот без "наворотов", специфичных для паскаль.абц: program test_arr; type arr = array of byte; elem = record val : byte; ind : byte; end; var i, n : byte; a : arr; min, max : elem; begin write('введите размер массива: '); readln(n); setlength(a, n); randomize; for i: =0 to n-1 do begin a[i] : = random(100); write(a[i], ' '); end; writeln; min.val: =a[0]; min.ind: =0; max.val: =a[0]; max.ind: =0; for i: =0 to n-1 do begin if a[i] < min.val then begin min.val : = a[i]; min.ind : = i; end; if a[i] > max.val then begin max.val : = a[i]; max.ind : = i; end; end; a[min.ind] : = max.val; a[max.ind] : = min.val; for i: =0 to n-1 do write(a[i], ' '); writeln; end. введите размер массива: 10 70 9 99 96 10 41 49 19 99 82 70 99 9 96 10 41 49 19 99 82