Viết chương trình nhập vào từ bàn phím một dãy số nguyên A gồm n phần từ A1, A2,...,An . Hãy tìm giá trị nhỏ nhất của dãy số .

uses crt;

var n,i,min:integer;

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

begin

clrscr;

repeat

write('nhap 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 min>a[i] then min:=a[i];

writeln('Gia tri nho nhat la: ',min);

readln;

end.

program GTNN;

uses crt;

var A:array[1..10000] of integer;

      n,i,min:integer;

begin

clrscr;

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

writeln('NHAP GIA TRI TUNG PHAN TU CUA DAY');

for i:=1 to n do

 begin

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

  readln(A[i]);

 end;

min:=A[1];

for i:=2 to n do

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

write('GTNN cua day la: ',min);

readln

end.