одномерный массив

[Carter]

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

[Mad_Cat]

type arrayR = array[1..100] of real;
{......}
var mas:arrayR;
{......}
procedure bubble(item:arrayR; n:integer);
var
a,b:integer;
t:real;
begin
for a:=1 to n-1 do
for b:=n-1 downto a do
if item[b-1]>item[b] then
begin
{Перестановка}
t:=item[b-1];
item[b-1]:=item[b];
item[b]:=t
end
end;
{тут ввод массива}
i:=1;
while (mas[i]<=0) and (i<=n) do
inc(i);
bubble(mas,i);
{и  вывод массива c вас}
end.