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

[Ostin]

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

[klem4]

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];
   else
    if a[i] < 0 then begin
       inc(nc);
       c[nc] := a[i];
   end;
end;

Volvo Угу, а я и внимания не обратил ...

это первая часть задания.

Сообщение отредактировано: volvo - 2.11.2006 19:59