program Tim_gia_tri_nho_nhat;
uses crt;
var i,n,Min:integer;
a:array[1..50] of integer;
begin
clrscr;
write('nhap so n: = ');readln(n);
for i:=1 to n do
begin
write('nhap mang a[' ,i, ']:=');readln(a[i]);
end;
Min:=a[1];
for i:=2 to n do if Min>a[i] then Min:=a[i];
writeln('gia tri nho nhat la: ' , Min);
readln;
end.
chúc bạn học tốt!!!!!
