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

1

Ответы и объяснения

2014-02-22T20:03:18+04:00
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     
write(mas[i],' ')   
else   
begin     
k:=k+1;     
res[k]:=mas[i];   
end; 
end; 
for i:=1 to k do   
write(res[i],' ');
end.