отрицательные числа, исправление ошибки Опции

[oljka]

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

[Bokul]

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

Сообщение отредактировано: Bokul - 30.05.2006 2:54

[oljka]

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

[Bokul]

но у меня показывает ошибку

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

Сообщение отредактировано: Bokul - 30.05.2006 3:43

[oljka]

Какой код?

[volvo]

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

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

[oljka]

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

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

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

[oljka]

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

[oljka]

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

[Bokul]

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.

Сообщение отредактировано: volvo - 3.11.2006 0:22

[-oljka-]

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

[volvo]

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

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