нужна помощь

[Ostapov]

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

[Stilet]

Твои попытки увидеть можно? Хотя бы код ввода массива.

[newerow1989]

var p:array[1..20] of integer;
    i,i1,i2:integer;
begin
   Randomize;
   For i:=1 to 20 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   i1:=1;
   While p[i1]<0 do
      i1:=i1+1;
   i2:=20;
   While p[i2]<0 do
      i2:=i2-1;
   Writeln('p[',i1,'] = ',p[i1]);
   Writeln('p[',i2,'] = ',p[i2]);
   For i:=i1+1 to i2-1 do
      Write(p[i],'  ');
   Writeln;
   Readln;
end.

Сойдет?

[Ostapov]

пойдет, только вот сортировки нет, желательно пузырьком

[newerow1989]

А как понять

упорядоченный по невозрастанию

?

[Ostapov]

по убыванию

[newerow1989]

var p:array[1..20] of integer;
    i,i1,i2,z:integer;
    b:boolean;
begin
   Randomize;
   For i:=1 to 20 do
   begin
      p[i]:=-10+Random(21);
      Write(p[i],'  ');
   end;
   Writeln;
   i1:=1;
   While p[i1]<0 do
      i1:=i1+1;
   i2:=20;
   While p[i2]<0 do
      i2:=i2-1;
   Writeln('p[',i1,'] = ',p[i1]);
   Writeln('p[',i2,'] = ',p[i2]);
   Writeln('ishod:');
   For i:=i1+1 to i2-1 do
      Write(p[i],'  ');
   Writeln;
   Repeat
      b:=true;
      For i:=i1+1 to i2-2 do
         If p[i]<p[i+1] then
         begin
            z:=p[i];
            p[i]:=p[i+1];
            p[i+1]:=z;
            b:=false;
         end;
   Until b;
   Writeln('sort:');
   For i:=i1+1 to i2-1 do
      Write(p[i],'  ');
   Writeln;
   Readln;
end.

Сойдет?

[Ostapov]

да, большое спасибо!

[newerow1989]

Пожалуйста!