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.
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.