Дана последовательность, состоящая из нулей и единиц. Поместить в начало...

Question

Дана последовательность, состоящая из нулей и единиц. Поместить в начало этой последовательности все единицы, а затем все нули. В последовательности N чисел (Паскаль)

Answer 1

Ответ:

begin

 ArrRandom(ReadInteger('n='),0,1).Println.Sorted.Println

end.

Объяснение:

Пример

n= 15

0 0 1 1 0 1 1 1 1 0 0 1 1 0 1

0 0 0 0 0 0 1 1 1 1 1 1 1 1 1