uses crt;
var
n,i,min:integer;
a:array[1..100] of integer;
begin
clrscr;
write('nhap so phan tu cua day:');readln(n);
for i:=1 to n do
begin
write('nhap a[',i,']:');readln(a[i]);
end;
min:=a[1];
for i:=1 to n doif a[i]<min then min:=a[i];
write('gia tri nho nhat cua day so la:',min);
readln;
end.