Lời giải :
program hotrotinhoc;
var a: array[1..100] of integer;
n,i,min : integer;
begin
write('n='); readln(n);
for i:= 1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:= 2 to n do
if min>a[i] then min:=a[i];
write('Gia tri nho nhat trong day la :',min);
readln
end.