и снова массивы)

[volkonskaya]

помогите с последней задачей,пожалуууйста
Последовательность а1,а2,...,аn состоит из нулей и единиц.Поставить с начало этой последовательности нули,а затем единицы.

[SlavaSSU]

var
a:array[1..1000] of integer;
i,j,n,t:integer;
begin
writeln('vvedite kolichestvo elementov massiva');
readln(n);
writeln('vvedite massiv');
for i:=1 to n do read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do 
if a[i]>a[j] then begin t:=a[i]; a[i]:=a[j]; a[j]:=t; end;
writeln('res');
for i:=1 to n do write(a[i],' ');
readln;
end.

[volkonskaya]

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

[SlavaSSU]

хех). конечно)))

[Serge_Bliznykov]

кстати, эту задачу можно решить, исходя из того, что в массиве могут быть всего ДВА различных элемента ("0" и "1")!

просто-напросто, за один проход подсчитываем количество нулей. потом в начале массива заносим нужное количество нулей. остальные элементы массива до конца массива заполняем единицами.
и всё, никаких сортировок!

[volkonskaya]

а вы можете записать это в программе?

[Poma][a]

count := 0;
for i := 1 to n do 
       if a[i] = 0 then
             Inc (count);

for i := 1 to count do 
           a[i] := 0;
for i := count+1 to n do 
           a[i] := 1;

[volkonskaya]

спасибо,спасибо и еще раз спасибо)

а вот в этой строке writeln('res')
res- это что такое?

[whatever]

Сокращение от "Result"

p.s. Не все ли равно? Что хочешь, то и напиши.

[TinMan]

Ромаха, привет ). Просто совет на будущее..
Лучше считать кол-во единиц, и делать это так:

count := 0;
for i := 1 to n do Inc(count,a[i]);