Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của mảng một chiều chứa n số nguyên nhập từ bàn phím.
Giúp em với mọi người ❤️
Sử dụng chương trình con tìm số nhỏ nhất của 2 số. Viết chương trình sử dụng chương trình con trên tìm và đưa ra màn hình giá trị nhỏ nhất của mảng một chiều chứa n số nguyên nhập từ bàn phím.
Giúp em với mọi người ❤️
uses crt;
var a:array[1..1000] of longint;
i,n,min:longint;
function m(a,b:longint):longint;
begin
if a>b then exit(b);
exit(a);
end;
begin
clrscr;
write(‘n=’);readln(n);
for i:=1 to n do readln(a[i]);
min:=a[1];
for i:=2 to n do
if m(min,a[i]) <> min then min:=m(min,a[i]);
writeln(‘Min= ‘,min);
readln;
end.