viết chương trình tìm ra số nhỏ nhất trong dãy số và chỉ số của nó

program sonhonhat;

uses crt;

var n,i,min: integer;

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

begin

clrscr;

write ('nhap so n: ');

readln(n);

for i:=1 to n do

   begin

      write ('A[',i,']= ');

       readln(a[i]);

        end;

 min:=a[1];

for i:=1 to n do

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

write ('so nho nhat la ',min);

readln;

end.

program SNN;

uses crt;

var n, i, Min: integer;

      A: ARRAY [1..100] OF integer;

begin

write('Nhap do dai cua mang, n = '); readln(n);

for i := 1 to n do 

begin 

write('So A[',i,'] la: '); read(A[i]);

end;

min := A[1];

for i := 1 to n do

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

writeln('So nho nhat trong day la: ',Min);

readln

end.