Viết chương trình nhập vào mảng N số nguyên dương a1, a2,…,aN. Thực hiện công việc sau: tìm phần tử nhỏ nhất trong dãy vừa nhập và chỉ số của phần tử nhỏ nhất.

uses crt;
var a:array[1..1000] of integer;
    i,min,csmin,n: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 a[i]<min then
   begin
      min:=a[i];
      csmin:=i;
   end;
   writeln('Min la: ',min);
   writeln('Chi so la: ',csmin);
   readln
end.
    

uses crt;

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

i, n, min, cs: integer;

begin

clrscr;

write('Nhap so luong phan tu : '); readln(n);

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

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

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

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

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

write('Phan tu nho nhat la ', min ,' chi so la ', cs);

readln

end.