Подскажите кно-нить, как сделать такое задание:
Расположить в порядке возрастания положительные элементы массива.
Вроде бы и легкое, а сделать никак не могу... На листочке все получается (как мне кажется), а на деле не реботает!
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.
Спасибо большое! Хороший алгоритм, я до такого не додумался.....