Question

Viết chương trình nhập vào n số nguyên. In ra màn hình số bé nhất ( sử dụng vòng lặp while_do)

Answer 1

uses crt;
var a:array[1..100]of integer;
n,i,min:integer;
begin
clrscr;
write('n='); readln(n);
if (n<=0) or (n>100) then writeln('vui long nhap lai')
else begin
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------xu-ly---------------------------}
min:=a[1];
i:=1;
while i<=n do
begin
if min>a[i] then min:=a[i];
i:=i+1;
end;
writeln('so nho nhat la: ',min);
end;
readln;
end.