Паскаль.Массивы.Строки

[Анастасия***]

1.Массив.

Одномерный массив состоит из 0 и 1 все нулевые элементы поместить в начало массива, новый массив вывести на печать, промежуточчный массив не использовать.

2.Строки.

Дана строка, содержащая не менее 6 слов разной длины переставить местами слово с минимальной длиной и последнее слово.

[Mad_Cat]

Одномерный массив состоит из 0 и 1 все нулевые элементы поместить в начало массива, новый массив вывести на печать, промежуточчный массив не использовать.

Сортировка по возрастанию любым доступным способом
либо

var i,n,c:integer;
a:array[1..100] of byte;
begin
readln(n);
c:=0;
for i:=1 to n do begin 
a[i]:=random(2);
if a[i]=0 then inc(c);
write(a[i],' ');end;
writeln;
for i:=1 to c do begin
a[i]:=0;write(a[i],' ');end;
for i:=c+1 to n do begin
a[i]:=1;write(a[i],' ');end;
readln;end.

[gylayko]

1.массив заполнить сможешь? там несложно, цикл от 1 до n a[i]:=random(какое-то число);

j:=1;
for i:=1 to n do
begin
if a[i]=0 then a[i]:=a[j];{если элемент массива =0, ставим его на первое место и увеличиваем счетчик, чтобы следующий ноль был уже второе, третий ноль на третьем месте и т.д.}
inc(j);
end;

так мы отсортировали массив и выводим его на печать через writeln(a[i]); в цикле от 1 до n(так же само)!

[Анастасия***]

попробую...но сомневаюсь((