Задачки на одномерный массив.

[allod26]

1) Вставить элемент после первого отрицательного элемента.
2) Дан одномерный массив чисел а. Cформируйте такой массив b, который содержит копию положительных элементов массива а.

Помогите решить две простенькие задачки :3

[TinMan]

А что значить "вставить"?
Ты когда-нибудь пробовал вставить червонец между правым и левым карманом?
Если речь о раздвижении остальных элементов, то говори, куда девать те, которые сдвинутся за край..

"Простенькими" эти задачи станут тогда, когда ты нормально поставишь условия..

[allod26]

Вставить, означает добавить
пример:

было
1 6 -5 7 2

например добавим 9

1 6 -5 9 7

[val_nnm]

var
  x:array[1..100] of integer;
  n:integer;
  A:integer;
  i:integer;
  p:integer;
BEGIN
  write ('n=');
  read (n);
  if (n>=100) then Begin
    writeln('n слишком большое');
    exit;
  end;
  write('A=');
  readln(A);
  randomize;
  For i:=1 to n do
    x[i]:=random(22)-5;
  writeln('Исходный массив:');
  for i := 1 to n do Begin
    write(x[i]:5,' ');
  end;
  writeln;
  p := n+1;
  for i := n downto 1 do
    if (x[i]<0) then p := i;
  if (p > n) then begin
    writeln('отрицательных эементов ненайдено');
    exit;
  end;
  for i := n downto p+1 do
    x[i+1] := x[i];
  x[p+1] := A;
  n := n+1;

  writeln('Результат:');
  for i := 1 to n do Begin
    write(x[i]:5,' ');
  end;
END.

var
  a:array[1..100] of integer;
  b:array[1..100] of integer;
  na:integer;
  nb:integer;
  i:integer;
BEGIN
  write ('n=');
  read (na);
  if (na>100) then Begin
    writeln('n слишком большое');
    exit;
  end;
  randomize;
  For i:=1 to na do
    a[i]:=random(22)-5;
  writeln('Исходный массив:');
  for i := 1 to na do Begin
    write(a[i]:5,' ');
  end;
  nb := 0;
  for i := 1 to na do
    if (a[i]>0) then Begin
      nb := nb+1;
      b[nb] := a[i];
    end;
  writeln;
  writeln('Результат:');
  for i := 1 to nb do Begin
    write(b[i]:5,' ');
  end;
END.

[allod26]

val_nnm пасиб =)