Почему не отбрасывает отрицательные ???

[pavel42]

Прога работает но не отбрасывает отрицательные когда расставляет элементы массива в порядке возрастания.

program zadacha4;
uses crt;
const n=15;
type mass=array[1..30] of integer;
var x:mass; i,k,p,s:integer;

procedure input(n:integer; var x:mass);
        begin
        for i:=1 to n do
        begin
        x[i]:=random(10)-2;
        writeln(x[i]);
        end;
        end;

procedure p2(n:integer; x:mass; var k,p,s:integer);
        begin
        s:=0;
        for i:=1 to n do
        if x[i]>0 then

        begin
        k:=1;
        while k<>0 do
        begin
        k:=0;
        for i:=1 to n-1 do
        begin
        if x[i]>x[i+1] then
        begin
        k:=1;
        p:=x[i];
        x[i]:=x[i+1];
        x[i+1]:=p;
        end;
        end;
        end;
        for i:=1 to n do
        write(x[i]:4);
        readkey;
        end;
        begin
        s:=s+1;
        end;
        end;


begin
clrscr;
randomize;
input(n,x);
p2(n,x,k,p,s);
readln
end.

Условие задачи было такое
Найти положительные элементы массива и расставить их в порядке возрастания.

[fbus]

я не вижу строчки которая находит отрицательные элементы,
добавьте

if x[i] < 0 then

.....
особо в код не вникал но по-моему это вывод результата

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

так исправьте на

for i:=1 to n do 
     If x[i] >=0 then
         write(x[i]:4);

Отрицательные не будут выводиться

[pavel42]

все теперь не выводит) большое спасибо )

скажите чем тут являеться p и k, а то я не знаю тчо написать в МПЗ )

[Anatole]

скажите чем тут являеться p и k,

р - промежуточная переменная, необходимая при перестановке местами двух элементов масива
k - признак необходимости проведения сортировки