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.