min:=a[1]; for i:=2 to N do if a[i]<min then min:=a[i] for i:=1 to N do if a[i]=min then writeln(i);