"введите текст из 100 литер..."

[alex_fcsm]

А мое решение не пойдет?

[katya36]

просто преподаватель уже то решение у меня проверила и отметила себе, сказала дописать...я оч рада что моё решение ей угодило там сдвинуть элемены осталось и всё ) но кааак?)

[alex_fcsm]

program p76ex51;
uses crt;
const n=10;
var A: array [1..n] of integer;
pn, pp, i, g, min,left: integer;//pp - сколько раз придется сдвигать
ok: boolean;
//pn- позиция первого отрицательного элемента
{$APPTYPE CONSOLE}

begin
clrscr;
pp:=0;
{ TODO -oUser -cConsole Main : Insert code here }
writeln ('vvedite posledovatelnost');
for i:=1 to n do
read (A[i]);
ok:=false;
i:=1;
while (i<=n) and not(ok) do
 begin
  if A[i]<0 then ok:=true
   else
    i:=i+1;
  if ok then pn:=i;
end;
if ok then // если встретили отр  элемент
begin
 inc(pp);// 1 раз сдвинули
i:=pn;
while i<n do
 begin
 a[i]:=a[i+1];
 inc(i);
 end;
end;
min:=9999;//предполагаем что у нас мин пол первый элемент
for i:=1 to n-pp do // длина могла измениться если сдвигали
 if a[i]>0 then begin
                 if a[i]<min then begin
                                        pn:=i; // встретили полож элемент
                                        min:=a[i];
                                      end;
                 ok:=true;
                end;
if ok then
begin
inc(pp);
i:=pn;
 while i<n-pp+1 do
  begin
  a[i]:=a[i+1];
  inc(i);
  end;
end;
for i:=1 to n-pp do
 write(a[i],' ');

end.

[katya36]

Alex, спасибо огромное

[alex_fcsm]

Посмотрите на исправленное.

[katya36]

а что значит inc? можно ли это как-то заменить? просто опят же- не проходили

[alex_fcsm]

inc(i) - увеличение на единицу равносильно i:=i+1

[katya36]

угу,поняла) а она у Вас работает? и как эту послед. например нужно вводить?

[alex_fcsm]

У меня работает(снова подправил).
Вводите n чисел через пробел
1 2 -3 4 5 0 9 8 6 12

[katya36]

отлично спасибо ещё раз!!!