Задача №312. Дан массив из n элементов. Найти номер наименьшего элемента массива.

var a:array[1..1000] of integer; n,i,min,nomer:integer; begin write('Vvedite N = '); read(n); for i:=1 to n do begin write('Vvedite a[',i,']='); read(a[i]); end; min:=a[1]; for i:=1 to n do if min>=a[i] then begin min:=a[i]; nomer:=i;end; write('Nomer minimalnogo elementa = ',nomer); end.