Задача №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.