задача методы сортировки

[Hacker19_90]

а с какой ошибкой?
temaps у вас все восьмиклассники решают задачу не читая задания?
здорово, что сказать!

[temaps]

Я просто похожую сюда скопировал. удаление отрицательных ещё проще, чем одинаковых. Сейчас напишу

[temaps]

Если до сортировки:

i:=1;
while i<=n then
begin
  if a[i]<0 then
  begin
  for j:=i to n-1 do a[j]:=a[j+1];
  n:=n-1;
  end
else
  i:=i+1;

Если после сортировки:

while a[1]<0 do
begin
  for j:=1 to n-1 do a[j]:=a[j+1];
  n:=n-1;
  if n=0 then break;
end;

[Hacker19_90]

ну пишите! Если делать не чего!
лучше б сказали почему и с какой ошибкой вылетает программа с моим кодом?
Было бы куда полезнее!

[mad_ded]

я этого не проходил вот проблема((
а так все получилось спс большое завтра задам учителю вопросы и спрошу то что не понял и все будет ОК))

[temaps]

Сообщение от Hacker19_90

ну пишите! Если делать не чего!
лучше б сказали почему и с какой ошибкой вылетает программа с моим кодом?
Было бы куда полезнее!

Это его программа с ошибкой вылетает. Лень даже смотреть. У меня, если ввести верхнюю границу диапазона, например, 10, то вылетает если верхняя граница 5, то нет. Почему - это уже вообще разбираться первоклашкам.

[Hacker19_90]

Почему - это уже вообще разбираться первоклашкам.

ну да да!

Короче mad_ded
Вылетает она из-за вот этой строчки

for i:=1 to n do
write(a[m]);
readkey;

меняйте
на

for i:=1 to n do
write(a[i]:5);
readkey;

и внимательнее!

[temaps]

Сообщение от mad_ded

я этого не проходил вот проблема((
а так все получилось спс большое завтра задам учителю вопросы и спрошу то что не понял и все будет ОК))

А ты в каком классе, если не секрет?
ЗЫ
Кстати, так как сделал уважаемый Hacker19_90, делать более правильно - это работает намного быстрее ибо это не в лоб :-) (сразу внимание не обратил):

repeat
  isFound := false;
  for i := 1 to n do 
    if a[i] < 0 then
    begin
      isFound := true;
      temp := a[i]
      a[i] := a[n]
      a[n] := temp;
      Dec(n);
      break;
    end;
until isFound = false;

Но я бы сделал так:

i:=1;
while i<=n do
begin
    if a[i] < 0 then
    begin
      p := a[i]
      a[i] := a[n]
      a[n] := p;
      Dec(n); {это эквивалентно n:=n-1;, но dec и inc работают намного быстрее}
    end
else
  inc(i);
end;