uses crt; var mang:array[1..250] of integer;min:integer;i,t:byte; BEGIN clrscr; write('Nhap t: ');readln(t); for i:=1 to t do begin write('So thu ', i, ': ');readln(mang[i]); if i=1 then min:=mang[i] else if mang[i]<min then min:=mang[i]; end; write('Gia tri nho nhat: ', min); readln END.
