Массив распределяющий местоположения цифр

[Alex233]

Здравствуйте! Нужно создать такой массив состоящий из десяти единиц и нулей, чтобы после ввода данных выводилась последовательность в которой на первых местах стояли нули, а всем остальным присваивалось значение 1
(типа 0001111111)
Заранее СПАСИБО!

[Serge_Bliznykov]

"вааще" ничего не понятно!
Вы сами то по своему посту понимаете, что дано исходно, что нужно сделать и что получить в результате?!!

[Alex233]

Нужно написать программу, для массива состоящего из 10-ти элементов, вписать в него ТОЛЬКО единицы и нули, и чтобы в результате появилась последовательность опять же из десяти цифр, в которой сперва шли нули а потом единицы.

[Stilet]

var bits:array[1..1000] of byte;i:integer;
begin
 for i:=1 to 1000 do readln(bits[i]);
 for i:=1 to 1000 do if bits[i]=0 then write(bits[i]);
 for i:=1 to 1000 do if bits[i]=1 then write(bits[i]);
 readln;
end.

[TinMan]

Стилет, классное решение, только я не совсем понял, зачем ты лезешь обратно в массив за единицами и нулями )). Так не проще

 for i:=1 to 1000 do if bits[i]=0 then write(0);
 for i:=1 to 1000 do if bits[i]=1 then write(1);

- ?