Паскаль.Обработка одномерных массивов.

[popozoglo]

Дан массив А1,..,А20. Построить новый массив В1,..,В20, у которых вначале все положительные А, а затем все отрицательные.

[Alt]

Сначала в цикле проходишься по массиву А. Как только встречаешь положительный элемент - записываешь его в массив B.
Потом опять проходишься по массиву А, как только встречаешь отрицательный элемент - записываешь в массив B.

[Alt]

const
n=20;
var
i,j: integer;
a,b: array [1..n]of integer;
begin
j:=0;
for i:=1 to n do
if A[i]>0 then
            begin
            j:=j+1;
            B[j]:=A[i];
            end;
for i:=1 to n do
if A[i]<0 then
            begin
            j:=j+1;
            B[j]:=A[i];
            end;
end.