uses crt;

var a: array[1..100] of integer;

i,n,min: integer;

begin

clrscr;

write ('nhap n: ');  readln (n);

writeln ('nhap mang: ');

for i:=1 to n do readln (a[i]);

min:=a[1];

for i:=1 to n do

if a[i]<min then min:=a[i];

writeln ('Thap nhat: ',min);

readln;

end.

uses crt;
var a: array[1..1000] of integer;
i,n,min: integer;
begin
clrscr;
write('nhap so luong phan tu: '); 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 min>a[i] then min:=a[i];
writeln ('so be nhat trong day la: ',min);
readln;
end.