Банальная сортировка...., Не получается никак Опции

[Vlader]

Подскажите кно-нить, как сделать такое задание:
Расположить в порядке возрастания положительные элементы массива.

Вроде бы и легкое, а сделать никак не могу... На листочке все получается (как мне кажется), а на деле не реботает!

[volvo]

Расположить в порядке возрастания положительные элементы массива.

Что должно происходить с нулевыми и отрицательными?

[klem4]

Что должно происходить с нулевыми и отрицательными?

скорее всего ничего, думаю решается так :

uses crt;
const n=10;
var
   x:array[1..n] of integer;
   i,j,temp:integer;
   flag:boolean;

Begin

   clrscr;

   for i:=1 to n do
    readln(x[i]);

   repeat
       flag:=true;
       for i:=1 to n-1 do
        if x[i]>0 then
         for j:=i+1 to n do
          if (x[j]>0)and(x[j]<x[i]) then begin
              temp:=x[i];
              x[i]:=x[j];
              x[j]:=temp;
              flag:=false;
          end;

   until flag;

   writeln;

   for i:=1 to n do
    writeln(x[i]);

   readln;

End.

[Vlader]

Спасибо большое! Хороший алгоритм, я до такого не додумался.....