Упорядочивание массива

[A_Orlov]

Помогите, пожалуйста, сделать задачу на Паскале.
Ввести массив x1,x2,...,x20. Требуется расположить отрицательные элементы в порядке убывания.

[RUSt88]

выполню за вознаграждение

[A_Orlov]

ладно........

[Stilet]

A_Orlov

Если у тебя есть наработки выкладывай.
Собственно как сортировать то пузырьком знаешь?

[Кристинка 789]

не могу понять что нужно сделать в задаче "Посчитать, сколько выплатит кредитополучатель за n лет (n вводится с клавиатуры), если известно, что сумма кредита составляет 20000$, банковский процент – 6, а ежегодно кредитополучатель выплачивает 2400$. Результат выдать на экран." нужно сделать в поскале.

[Snejnaya]

Кристинка 789

var i,n:integer;
    flag:boolean;
    sum,ost:real;

begin
readln(n);
flag:=false;//признак того, что он все выплатил
sum:=0;//сумма уже выплаченных средств
ost:=20000;//то, что осталось заплатить
i:=1;//счетчик годов
while (not flag) and (i<=n) do {пока не истекло n лет или пока кредит полностью не выплачен}
begin
ost:=ost*1.06;//набежали проценты за год
if ost<=2400 then {если осталось платить меньше 2400, то все ок}
 begin
 flag:=true;//признак того, что кредит выплачен
 sum:=sum+ost;{приплюсовываем остаток к уже набежавшей сумме выплат}
 end
else {если осталось платить больше 2400, платит дальше}
 begin
 ost:=ost-2400;
 sum:=sum+2400;{к текущей выплаченной сумме добавляем 2400}
 end;
i:=i+1;
end;
writeln(sum);
end.

[Stilet]

Одна тема - один автор