type
massiv = array [1..10] of integer;
var
mass : massiv;
i , j , n , b: integer;
begin
randomize;
write('Введите длину массива : ');readln(n);
for i:=1 to n do
begin
mass[i] := random(10);
write(mass[i], ' ');
end;
for i:=1 to n-1 do
for j:=1 to n-i do
begin
if (mass[j] < mass[j+1]) then
begin
b := mass[j];
mass[j] := mass[j+1];
mass[j+1] := b;
end;
end;
writeln;
for i:=1 to n do
write(mass[i], ' ');
readln;
end.
Объяснение: немного видоизменен, я не использовал downto, а также использовал переменнную b, вместо k
1*25 + 0*24 +1*23 +1*22 + 0*21 + 1*20 = 1*5^2 + 0*2^3 * 3 + 1 * 23 + 1 * 11 * 2 + 0 * 3*7 + 1 * 2^2 * 5. - ЭТО НЕ развёрнутая форма записи числа. И поэтому НЕЛЬЗЯ определить основание системы счисления. Поэтому записать в краткой форме ЭТО нельзя. Вот если бы была уже указано основание системы счисления, можно было бы выполнить действия и записать краткую форму.
Возможно вы имели в виду 1*2^5 + 0*2^4 +1*2^3 +1*2^2 + 0*2^1 + 1*2^0 и тогда да, ответ предыдущий (101101) верен, но данное задание ответа не имеет.
Объяснение:
развёрнутая форма - цифры числа умножаются на основание системы счисления возведённое в степень по правилу:
показатель степени - место на котором цифра, возводимая в эту степень, должна находится. (крайняя справа - нулевая степень, вторая справа - первая и т.д.)