Циклические алгоритмы. Найти минимальное число из 12 введенных чисел и его номер. Помогите пожалуйста, очень надо:)

Question

Сергей Троскин · Accepted Answer

вводим первое число 
запоминаем его и его номер 
ПОКА числа вводят 
если введенное меньше запомненного - запомнили его и его номер 
 
выводим запомненное число и его номер

Александр Брайт · Answer

min:=a [ 1 ]; nmin:=1; 
for i:=2 to 12 do 
if a [ i ] < min then 
begin min:=a [ i ]; nmin:=i end;