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.
