1) Đề chưa rõ ràng!
2) var a:array[1..1000] of real;
i,n:integer;
min:real;
begin
write('n = ');readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,' = ');readln(a[i]);
end;
min:=a[1];
for i:=2 to n do
if a[i] < min then min:=a[i];
write('So nho nhat trong day la ',min:10:2);
readln
end.