Массивы

[ProgrammiST-_-]

1) Дан действительный массив А(n) Поменять порядок следования элементов в массиве на обратный.
2) Дан массив A(n) Вывести в порядке следования все отрицательные числа, затем все положительные числа.

[Serge_Bliznykov]

да... сложнейшие задачи..

1)

for i:=1 to (N div 2) do begin t := A[i]; A[i] := A[N+1-i]; A[N+1-i] := t; end;

2)

for i:=1 to N do 
    if A[i]<0 then Write(A[i],' ');
   WriteLn;
   for i:=1 to N do 
    if A[i]>=0 then Write(A[i],' ');
   WriteLn;