Порфирий
6 год назад
Дана последовательность,которая состоит из 0 и единиц,переместите в начало последовательности все нули,а затем все единицы. Помогите пожалуйста
ОТВЕТЫ
Власий
Jul 6, 2019
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!
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
// Внимание! Если программа не работает, обновите версию!
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
200
