я всё понимаю,но это была не Кристина,просто с одного компа входили.....очень прошу, помогите исправить программу....
Прикрепленные файлы
UZD8.PAS ( 670 байт )
Кол-во скачиваний: 210
Какая разница, всеравно задача почти такая же
http://forum.pascal.net.ru/index.php?showtopic=11027
Я по этому типу и делала программу, но у меня показывает ошибку
Какой код?
Ну, положим, ты НЕ по той программе делала свою... Иначе ЗАЧЕМ поменяла кусок, где производится обмен переменных местами? Там будет ошибка... Сама догадаешься, почему, или объяснить?
Нельзя брать кусок - отсюда, кусок - оттуда, объединять, и чтоб это ЕЩЕ и работало..
помогите!!!!!!!!!!!!!!!!помогите!!!!!!
Ну, пожалуйста, исправьте мне программу...
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
все прекрасно отработало