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

[Ostin]

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

[Ostin]

вторая часть!

var
pf:byte; полож. 1 вхождение 
pl:byte; --\\-- последнее вхожд.
mf:byte; отрицательное 1
ml:byte; отрицательное послед.

begin
 for pf:=1 to n do
if A[pf]>0 then break;
 for pl:h downto 1 do
if A[pl]<0 then break;
for mf:=1 to n do
if A[mf]>0 then break;
for ml:=n downto 1 do
if A[ml]< then break;

Во первых пользуйся тегами, а во вторых внимательно прочитай предыдущий пост ...

а еще обнулить надо!

а теперь помогите мне собрать всё в одно единое! что бы работало! но надо используя не вот то что волво предлодил первая часть!

Сообщение отредактировано: volvo - 3.11.2006 0:00