uses crt;
var n,i,min:longint;a:array[1..1000]of longint;
begin
clrscr;
write('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(a[i]<min)then min:=a[i];
writeln('so nho nhat trong day la:',min);
readln;
end.
đây nhé bạn cho mình xin hay nhất