Предмет: Информатика, автор: qeret3439

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

Ответы

Автор ответа: DmitryINF
0
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.
Похожие вопросы