Program so_nho_nhat;

Uses crt;

Var A :  array [1..10] of integer;

               i,min: integer;

Begin 

For i:=1 to 10 do

Begin

Write ('nhap phan tu thu ',i,'=');

Readln (A[i]);

end;

Min:=A[1];

For i:=2 to n do 

If A[i]< min then min:= A[i];

Writeln ('So nho nhat trong day la:', min);

Readln

End.

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!!!!!