uses crt;
const n=10;
var a: array[1..n]ofinteger;
i,j,k: byte; c: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i: =1to n do begin
a[i]: =random(19)-9;
write(a[i]: 3); end; writeln;
k: =0; for i: =1to n-1do f
or j: =i+1 to n do if a[i]> a[j] then begin
c: =a[i];
a[i]: =a[j];
a[j]: =c;
inc(k);
end;
writeln('результат сортировки: ');
for i: =1 to n do write(a[i]: 3);
writeln;
writeln('кол-во перестановок = ',k);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Перевести числа из 10-ичной сс в 2–ичную сс. 56; 65
ответ:
56 = 111000
65 = 1000001
объяснение:
каждый раз делим на 2, если есть не делимое, отнимается единица, все остальное в 0.
числа получаются от последнего итога деления к первоначальному.