Формирование массива Pascal

[n0rma1]

Здравствуйте! Прошу помочь с решением следующей задачи -->

• Дан массив целых чисел, каждое из которых отлично от нуля. Если в массиве отрицательные и положительные члены чередуются (+, -, +, -, … или -, +, -, +, …), то получить новый массив совпадающий с данным. Иначе получить новый массив из отрицательных элементов данного массива, сохранив порядок их следования.

Заранее спасибо!

[Grag]

Судя по всему, речь идет об одномерном массиве... Пробегаешь по массиву, начиная с нулевого элемента и отслеживаешь чередование знака: i:=0, ((A[i]>0 and A[i+1])<0) or ((A[i]<0 and A[i+1])>0), то Inc(i) и так до n-1 элемента массива... Если условие нарушено, то чередование не соблюдается и делаешь массив из отрицательных элементов исходного массива, в противном случае копируешь исходный массив в конечный...

[Stilet]

Наработки в студию )

[Филантроп]

((A[i]>0 and A[i+1])<0) or ((A[i]<0 and A[i+1])>0), то Inc(i)

вместо этого можно

var a,b:array[1..n] of integer;
k:boolean;
c,i:integer;
begin
....
k:=true;
for i:=1 to n-1 do
a[i]*a[i+1]>0 then begin k:=false;break;end;
if k then
for i:=1 to n do
b[i]:=a[i]
write(b[i]:4);
else
begin c:=0;
for i:=1 to n do
if a[i]<0 then begin inc(c) b[c]:=a[i];writeln(b[i]);end;
end;
...
end.