uses crt;
var n,i,so,min,j,tam:longint;a:array[1..150]of longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  for i:=1 to n do
        begin
         write('nhap a[',i,']=');readln(a[i]);
        end;
  min:=a[1];
  for i:=2 to n do if(a[i]<min)then
        begin
         min:=a[i];
         so:=i;
        end;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if(a[i]>a[j])then
        begin
         tam:=a[i];
         a[i]:=a[j];
         a[j]:=tam;
        end;
  writeln('vi tri cua so nho nhat la:',so);
  write('mang sau khi duoc sap xep la:');
  for i:=1 to n do write(a[i],' ');
 readln
end.