* Sử dụng mảng:
program ct;
uses crt;
var A:array[1..5] of integer;
i,min:integer;
begin clrscr;
for i:=1 to 5 do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
end;
min:=A[1];
for i:=1 to 5 do
if A[i]<min then min:=A[i];
write('So nho nhat la: ',min);
readln;
end.
* Không sử dụng mảng:
program ct;
uses crt;
var a,b,c,d,e,min:integer;
begin clrscr;
write('Nhap vao 5 so nguyen: '); readln(a,b,c,d,e);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
if d<min then min:=d;
if e<min then min:=e;
write('So nho nhat la: ',min);
readln;
end.
Học tốt!