số nguyên N (N<250) và dãy số nguyên A1,A2,...,An mỗi số không vượt quá 500. tìm chỉ số và giá trị của phần tử nhỏ nhất trong dãy

Đây nha bạn

program nhonhat;
uses crt;
var n,i,chiso:integer;
    Min:longint;
    A:array[1..500] of integer;
begin
 clrscr;  Min:=Maxlongint;
 readln(n);
 For i:=1 to n do read(A[i]);
 For i:=1 to n do if A[i]<=Min then
  begin
   Min:=A[i];
   chiso:=i;
  end;
  writeln('So nho nhat: ',Min);
  writeln('vi tri: ',chiso);
  readln;
  readln;
end.

Program BTT;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,min: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
        End;

        max:=A[1];
        For i:=2 to n do
                If A[i]<min then
                        min:=A[i];
        Writeln('GTNN: ',min);
        For i:=1 to n do
                If A[i]=min then Writeln('Vi tri ',i);
        Readln
End.