Viết chương trình tạo mảng gồm n(n<=150) số nguyên hãy: A. Đưa ra vị trí phần tử có giá trị nhỏ nhất trong mảng nếu có nhiều giá trị nhỏ nhất thì đưa ra chỉ số lớn nhất B. Đưa ra màn hình mảng sau khi đc sắp xếp theo thứ tự tăng dần của các giá trị trong mảng

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.