Question

[Nguyễn Thị Thanh Xuân]

Nhập vào từ b phím N số nguyên a1 , a2 , ......aN đưa ra màn hình sói nhỏ nhất trong N số trên

Answer 1

[Kiều Vũ Linh]

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

i,n,min:integer;

begin

write('n = ');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];

write('So nho nhat la ',min);

readln

end.