13.04.2008, 19:25
общий
это ответ
Здравствуйте, Федосеев Павел Юрьевич!
Решение в приложении без использования дополнительного массива. Если будут вопросы, пишите в мини-форум.
Приложение:
program q132022;uses CRT;const N_Max = 100;var A : array [1..N_Max] of integer; i, j, N : integer;begin ClrScr; WriteLn(‘Введите кол-во элементов последовательности:‘); ReadLn(N); WriteLn(‘Введите ‘, N, ‘ элементов последовательности:‘); for i := 1 to N do ReadLn(A[i]); for i := 1 to N-1 do if (A[i] = 1) and (A[i+1] = 0) then begin A[i] := 0; A[i+1] := 1; for j := i downto 1 do if (A[j] = 0) and (A[j-1] = 1) then begin A[j] := 1; A[j-1] := 0; end; end; WriteLn(‘Полученная последовательность:‘); for i := 1 to N do Write(A[i]:3); ReadLn;end.