Ответ:
Код и пример вывода в прикрепленных файлах ниже.
Объяснение:
Потому что чтобы уметь пользоваться компьютером нужно как минимум логично рассуждать
const n = 10;
var
mas: array [1..n] of integer;
i,j,h:integer;
begin
randomize;
for i := 1 to n do
begin
mas[i] := random(3);
write(' ',mas[i],' ');
end;
writeln();
for i := 1 to n - 1 do
for j := 1 to n - i do
if(mas[j] = 0) then
begin
h := mas[j];
mas[j] := mas[j + 1];
mas[j + 1] := h;
end;
for i := 1 to n do
write(' ',mas[i],' ');
end.
Я так понял, что это нужно написать на ЯП Pascal
Вот скриншот и прикрепленный файл с кодом.
Набирать здесь не буду из-за неудобочитаемости.
Работает стабильно, хоть и всегда можно реализовать как-то еще проще :)
upd: обновил фалы, теперь всё написано как надо
Рот.рак.еда.тор.док.кот .