Viết chương trình nhập vào một dãy số nguyên, đưa ra màn hình vị trí và phân tử nhỏ nhất

program min_vitri;

uses crt;

var A:array[1..100] of integer;

      n,min,i:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

 begin

  write('Nhap phan tu thu ',i': ');

  readln(A[i]);

 end;

min:=A[1];

for i:=2 to n do

 if A[i]<min then min:=A[i];

writeln('Phan tu nho nhat la ',min);

writeln('Vi tri xua hien la:');

for i:=1 to n do

 if A[i]=min then write(i:4);

readln

end.

uses crt;

var a: array[1..100] of integer;

      i,n,min, vt: integer;

begin

clrscr;

write ('nhap so phan tu: ');  readln (n);

for i:=1 to n do

begin

write ('nhap a[',i,']: ');   readln (a[i]);

if min>a[i] then

begin

min:=a[i];

vt:=i;

end;

end;

writeln ('phan tu nho nhat la a[',vt,']= ',a[vt]);

readln;

end.