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

[mad_ded]

массив из n элементов заполнить случайными числами в диапазоне от a до b. удалить из массива все числа <0 оставшиеся упорядочить по возростанию.

[Hacker19_90]

у вас компилятор какой?

[mad_ded]

вот что то сделал но числа повторяются и не сортируются плз где ошибка
компилятор free pascal

program zd_2;
uses crt;
var a:array[1..100] of integer;
n,i,j,p,x,m,k,l:integer;
begin
clrscr;
randomize;
write('kol-vo elementov: ');
readln(n);
write('diapazon: ');
readln(k,l);
for i:=1 to n do
begin
a[i]:=random(l-k+1)+k;
end;
i:=1;
while i<=n do
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;
m:=1;
for i:=2 to n do
if a[i]>a[n] then
n:=i;
for i:=2 to n do
write(a[m]);
readkey;
end.

[Hacker19_90]

ну так если у вас fpc
вы динамику использовать не хотите?

[mad_ded]

не умею а нужно используя то что прощли

[Hacker19_90]

так ну тогда давай те по порядку
1) Удалить отрицательные
Удалить мы их конечно из статика не можем но можем просто не показывать их пользователю сместив их в конец и сократив текущее количество элементов
К примеру так!

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;

Ясненько?

[mad_ded]

а можно плз полный код программы сделал бы сам но еще куча задач по проще

[Hacker19_90]

Не ну если вы разбираться не хотите...
ТО это не ко мне!

[mad_ded]

хотеть то хочу но ценой нескольких других задач)) а что значит dec и isfound

[Hacker19_90]

а что значит dec?

то же самое что и

n := n - 1;