Сверхдикая задача про роботов

[Aleks_006]

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

если их несколько, то нужно определить всех

Если делать как обычно, получается вывод только одного числа:

 minT:=T[1];
 for i:=1 to n do
 if minT>T[i] then s:=i;
writeln('Раньше всех выйдет № ',s,' (' ,minT:3:1, ' сек)');
readkey; end.

Я попытался запилить вместо переменной массив, но ничего хорошего не вышло.

 minT:=T[1]; s[i]:=1; k:=1;
 for i:=1 to n do
 if (minT>T[i]) or (minT=T[i]) then begin s[k]:=i; k:=k+1; end;
writeln('Раньше всех выйдет(-ут) №№ ',s[k],' (' ,minT:3:1, 'сек)');
readkey; end.

Это сейчас неточный код, т.к. правильный я просто забыл - он на другом компе. Но смысл был такой: программа прекрасно выдавала 2 или 3 минимума (совпавших у нескольких роботов), но перестала работать в том случае, когда все числа разные! Выдала какой-то совершенно неверный бред, да ещё и циклом из трёх строк. Так вот, я не могу создать универсальный код. Чтобы выводила правильно и один минимум, и несколько.

[Aleks_006]

Если меня не поняли, вопрос вот в чём: как вывести несколько номеров минимумов (а не один) из любого массива?

[s-andriano]

Сообщение от Aleks_006

Если меня не поняли, вопрос вот в чём: как вывести несколько номеров минимумов (а не один) из любого массива?

Существует, минимум два основных варианта (оптимизировать либо по памяти либо по скорости).
Который из них Вас интересует?

[Aleks_006]

Сообщение от s-andriano

Существует, минимум два основных варианта (оптимизировать либо по памяти либо по скорости).
Который из них Вас интересует?

По скорости... впрочем, я не совсем понял, о чём речь. Код будет отличаться?

[s-andriano]

А так бывает, чтобы алгоритмы разные, а код - не отличался?

Если по скорости, значит, в один проход (с оптимизацией по памяти - в два).
Заводим дополнительный массив (для определенности - с 0, назовем A) и число (назовем его N), показывающее, насколько этот массив заполнен, а также число, в которое будем записывать локальное значение минимума D (текущее значение, среди которых ищем минимум - B).
Дальше следующий алгоритм:
перебираем по I
- если N=0, то A(0) := I, N:=1, D := B.
- если B < D, то A(0) := I, D := В и N:=1.
- если B = D, то A(N) := I, N := N + 1;