Вот есть задание:
1) Обращение целых чисел с прямого кода в дополнительный при длине розрядной сетки 32.
Вот есть прога на паскале:
| Код |
var a:array[1..100] of integer;
i,k:integer;
begin
write('vvedit a:');
for i:=1 to 8 do
read(a[i]);
for i:=1 to 8 do
begin
if a[i]=1 then
k:=i;
end;
writeln('k=',k);
write('dodatkovuy kod cgusla=');
if a[1]=1 then
begin
for i:=2 to k-1 do
begin
if a[i]=1 then
a[i]:=0
else
a[i]:=1;
end;
for i:=1 to 8 do
write(a[i]);
end
else
for i:=1 to 8 do
write(a[i]);
end.
|
Как мне переделать ее под мое задание? Помогите пожалуйста. |