я всё понимаю,но это была не Кристина,просто с одного компа входили.....очень прошу, помогите исправить программу....

Какая разница, всеравно задача почти такая же
ПОЗИТИВНЫЕ ЧИСЛА, ПРОГРАММА

Я по этому типу и делала программу, но у меня показывает ошибку

Какую?
Покажи свой код.

Какой код?

Ну, положим, ты НЕ по той программе делала свою... Иначе ЗАЧЕМ поменяла кусок, где производится обмен переменных местами? Там будет ошибка... Сама догадаешься, почему, или объяснить?

Нельзя брать кусок - отсюда, кусок - оттуда, объединять, и чтоб это ЕЩЕ и работало..

В том-то и дело, что я не понимаю ...

помогите!!!!!!!!!!!!!!!!помогите!!!!!!

Ну, пожалуйста, исправьте мне программу...

Volvo как всегда прав

uses crt;
const n=6;
TYPE mas=array[1..n] of integer;

procedure bubble(var x:mas);
    var i,j,T:integer;
begin
     for i:=1 to n do
         for j:=n downto i+1 do
             if (x[i]<0{первый} ) and (x[j]<0{второй}) and (x[i]<x[j]{третий}) then
                begin
                     T:=x[i];
                     x[i]:=x[j];
                     x[j]:=T;
                end;

end;

var i:byte; x:mas;
begin
clrscr;
writeln('Enter array ',n);
for i:=1 to n do
    readln(x[i]);
clrscr;
for i:=1 to n do
    write(x[i],' ');
bubble(x);
writeln;
for i:=1 to n do
    write(x[i],' ');
readln;
end.

Ты проверил программу перед тем, как её впустить.... У меня показываются только нули: 000000

А телепаты на других форумах. Исходные данные свои приведи...

У меня, например, на массиве
1 -8 3 -5 4 -7
все прекрасно отработало