Найти минимальное по модулю из N введенных чисел. Использовать цикл REPEAT

[19Leon93]

Помогите решить задачку: Найти минимальное по модулю из N введенных чисел. Использовать цикл REPEAT. По заданной перестановке определить ее номер.



_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[Stilet]

var n,min:double;
...
repeat
 readln(N)
 if abs(n)<min then min:=n;
until false; Или тут условие выхода из цикла например n=0;
...