Ничего сложного... Опции

[Андрей]

Ребята, здравствуйте!
Если кому не сложно набрасайте алгоритм задачи: Из предложенного промежутка чисел выбрать все отрицательные. Например, вводим -5, затем 54 ответ: -5, -4, -3, -2,-1.
Помогоите пожалуйста. Спасибо за внимание.

[APAL]

Например так:

1. Проверяем что нижний предел меньше нуля и верхнего предела
2. Организуем цикл от нижнего предела до верхнего предела с проверкой и выводом результата.

Код

Procedure Show(min,max : Integer);
var i : integer;
Begin
If (min<0) and (min<max) then
 For i:=min to max do
   if i<0 then Writeln(i);
End;

[AlaRic]

Модератор, внимательнее!