program min; uses crt; var a:array[1..100]ofword; i, n:integer; min :Word; begin clrscr; write('Nhap so phan tu cua day so: '); readln(n); for i:=1to n do begin write('Nhap phan tu thu ',i,' cua day: '); readln(a[i]); end; min:=a[1]; for i:=2to n do if a[i]<min then min:=a[i]; write('Gia tri nho nhat cua day co gia tri la: ',min); readln; end
