uses crt;
var N:byte;
    A:array[1..250] of integer;
    i,min,csmin:integer;
begin
   clrscr;
   write('Nhap N: '); readln(N);
   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 min>A[i] then 
   begin
      min:=A[i];
      csmin:=i;
   end;
   writeln('Min la: ',min);
   writeln('Chi so cua Min la: ',csmin);
   readln
end.
      

uses crt;

var a : array [1.. 250] of integer;

i, n, m, cs: integer;

begin

clrscr;

write('Nhap n : '); readln(n);

write('Nhap ', n ,' phan tu : ');

for i := 1 to n do read(a[i]);

m := a[1]; cs := 1;

for i := 1 to n do if a[i] < m then

begin m := a[i]; cs := i; end;

writeln('Min = ', m);

writeln('Chi so =', cs);

readln

end.