Для начала необходимо перевести число 11 из 10-ной с.с в 2-ную с.с, из 10-ной с.с в 2-ную переводится путем деления числа на основание переводимой с.с (т.е на 2), мы делим 11 на 2,остается частное и остаток,сравниваем частное меньше делителя,если нет до делим снова на 2,делим на 2 до тех пор пока частное не станет меньше делителя,затем записываем ответ начинает с частного и всех последующих остатков!
затем складываем 2 числа в 2-ной с.с,по правилу 0+0=0; 0+1=1; 1+0=1; 1+1=10 (единица переносится в старший разряд)
Uses crt;
var
i: integer;
k: array [1..5] of real;
begin
clrscr;
writeln ('Input array:');
for i:=1 to 5 do
begin
write (i,') ');
readln (k[i]);
end;
writeln ('Your array:');
for i:=1 to 5 do
write (k[i],' ');
readln ();
<span>end.</span>
В первой строчке мы дублируем значение из X[a] дабы не потерять. Теперь можем вписать туда X[b]:
X[a]:=X[b]
Найдём путем последовательного деления на основание с/с. Для этого нам необходимо делить число на 2 до того момента, пока в частном мы не получим цифру алфавита системы счисления, любую, кроме 0 (в данном случае необходимо прийти к 1). Потом записываем частное последнего вычисления, а следом за ним остатки остальных вычислений в обратном порядке. На фото подробнее.