Доброго времени суток. Пожалуйста, помогите составить программу в Паскале. Дана...

Question

Доброго времени суток. Пожалуйста, помогите составить программу в Паскале.
Дана последовательность вещественных чисел, содержащих n=15 элементов. Построить из неё новую последовательность, так чтобы в её начале располагались все отрицательные, а затем все положительные числа и нули. Относительный порядок расположения как отрицательных, так и не отрицательных должен быть сохранён

Answer 1

Var 
res,mas:array[1..100] of real; 
k,i:integer;
begin 
k:=0; 
for i:=1 to 15 do   
read(mas[i]); 
for i:=1 to 15 do  
begin   
if mas[i]<0 then      <br>write(mas[i],' ')   
else   
begin     
k:=k+1;     
res[k]:=mas[i];   
end; 
end; 
for i:=1 to k do   
write(res[i],' ');
end.