составить программу на Паскале для сортировки только положительных элементов в одномерном массиве

[Настя33]

составить программу на Паскале для сортировки только положительных элементов в одномерном массиве,при чем отрицательные должны оставаться на своем месте без изменений. Заранее спасибо

[Stilet]

Покажешь код ввода твоего массива?
Сама сможешь просто сортировку добавить?

[Настя33]

проблема в том,что всю программу я сделала сама,но в ней есть какой то недочет в плане сортировки,а именно он положительные числа сортирует группами,то есть например дан массив 9 2 5 -2 -4 6 1 он выводит 2 5 9 -2 -4 1 6 а должен 1 2 5 -2 -4 6 9

var a:array [-50..50] of integer;
i,j,k,n,c: integer;
begin 
  clrscr;
  randomize;
  writeln('размер массива');
  readln(n);
  writeln('исходный массив');
  for i:=1 to n do begin
    a[i]:=random(101)-50;
    write (a[i]:5); end;
    writeln;
  for i:=1 to n-1 do begin 
   for j:=1 to n-1 do begin c:=a[j];
   if a[j+1] > 0 then begin if c>a[j+1] then
         begin
            k:=a[j];
            a[j]:=a[j+1]; 
            a[j+1]:=k;
         end; end;end;end;
         writeln;
   writeln('Положительные элементы упорядочены по возрастанию:');
   for i:=1 to n do write(a[i]:5);
   readln;
end.

[Ezhik Kihze]

в ней есть какой то недочет в плане сортировки,а именно он положительные числа сортирует группами,то есть например дан массив 9 2 5 -2 -4 6 1 он выводит 2 5 9 -2 -4 1 6 а

а теперь читаем программу

if a[j+1] > 0 then begin if c>a[j+1] then

writeln('Положительные элементы упорядочены по возрастанию:');

Вывод - программа делает именно то, для чего писалась, и код писали не вы.

[DpolenST]

if a[j+1] > 0 then

1. не забывайте про ноль, его тоже надо сортировать
2. вместо if a[j+1], надо найти следующий элемент >=0, используйте while

[Настя33]

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

[Настя33]

не поняла ничего,где именно нужно вставлять цикл while?

[DpolenST]

вместо этого

if a[j+1] > 0 then begin

тебе надо найти номер следующего положительного элемента допустим P, как то так:

P:=j+1;
while P<n-1 and a[P] < 0  do P:=P+1;
if P<n-1 then begin

далее:
- если элемент найден, использовать a[P] везде вместо a[j+1], причем в конце цикла нужно будет присвоить j:=P-1;
- если не найден, перейти к следующему i

[Poma][a]

Здесь бы очень к месту был бы qsort..

[Stilet]

var a:array [-50..50] of integer;
i,j,k,n,c: integer;
begin
  randomize;
  n:=10;
  for i:=1 to n do begin
    a[i]:=random(101)-50;
    write (a[i]:5); end;
    writeln;
  for i:=1 to n-1 do begin
   for j:=1 to n-1 do begin
    if a[j] > 0 then begin
      if a[i]>a[j] then
         begin
            k:=a[j];
            a[j]:=a[i];
            a[i]:=k;
         end;
    end;
   end;
  end;
         writeln;
   for i:=1 to n do write(a[i]:5);
   readln;

Ошибка у тебя в сравнении. Нужно не с предидущим элементом по порядку сравнивать было а с предидущим по счетчику цикла.