массив, сложный даже мысли нет как хделать Опции

[Ostin]

Дан одномерный массив А,размерностью1*n (2<=n<=20) элементы массива принимают от 0 до 20000 устанавливаются польхователем. Все положиттельные числа массива А записываются последовательно в массив В, а отрицательные в массив С. определить первое и последнее вхождение положительных и отрицательных чисел в массив А

[volvo]

klem4, твоя же программа, чуть-чуть подправленная будет выполнять сразу обе части задания:

neg_first := 0; neg_last := 0;
pos_first := 0; pos_last := 0;

nb := 0;
nc := 0;

for i := 1 to n do begin
   readln(a[i]);
   if a[i] > 0 then begin
      inc(nb);
      b[nb] := a[i];
      if pos_first = 0 then begin pos_first := i; pos_last := i end
      else pos_last := i;
   else
    if a[i] < 0 then begin
       inc(nc);
       c[nc] := a[i];
      if neg_first = 0 then begin neg_first := i; neg_last := i end
      else neg_last := i;
   end;
end;

Вот и все, одним проходом ...

(Это, естественно, если диапазон от -20000 до +20000. Для четных/нечетных попробуй исправить сам...)